VB 怎样可以点击MsgBox的确定后打开另一窗口?

If MsgBox("注册已完成，现在就登录吗？", vbOKCancel) = vbOK Then Form2.Show 假定Form2是登录窗口

If MsgBox("想要打开百度吗？", vbYesNo) = vbYes Then Shell "iexplore.exe www.baidu.com"

End 改为 unload me:form2.show

Option Explicit Dim i As Long Private Sub Command1_Click() For i = 1 To 30 Dim myForm As Form1 Set myForm = New Form1 myForm.Show Next i End Sub

Private Sub Command1_Click() Dim i As Integer i = MsgBox("现在打开百度", vbYesNo, "提示") If i = vbYes Then Text1.Text = 100 If i = vbNo Then Text1.Text = 200 End Sub

Private Sub Combo1_Click()If MsgBox("是否添加？", vbOKCancel) = vbOK Then List1.AddItem Combo1.TextEnd IfEnd Sub

你说的是外部程序，还是自身程序？ 如果是其他程序，需要通过另一程序来控制它的话，需要枚举窗体 如果是自身程序，则由本身代码控制。

Private Sub Command1_Click() MsgBox "请随机点击一按钮，将弹出另一消息框!", vbYesNoCancel, "消息框一" MsgBox "另一消息框！", , "消息框二"end sub

那个form1就是你程序的主窗体,如果不想看到它,在你代码的End Sub上面加入Unload Me就行了.

Private Sub Command1_Click() MsgBox "123" Command2_Click End Sub Private Sub Command2_Click() Me.Caption = "1111111" End Sub