我写的：
Private Sub Command3_Click()
Dim a
a = MsgBox("123", vbInformation + vbOKCancel, "456")
If MsgBox("123", vbInformation + vbOKCancel, "456") = vbOK Then
Form1.Show
Else
Form3.Show
End If
End Sub

为什么总是点两下确定才出现FORM1,点两下取消才出点FORM2？？？？
在线等待！

我写的：
Private Sub Command3_Click()
Dim a
a = MsgBox("123", vbInformation + vbOKCancel, "456")
If MsgBox("123", vbInformation + vbOKCancel, "456") = vbOK Then
Form2.Show
Else
Form3.Show
End If
End Sub

为什么总是点两下确定才出现FORM2,点两下取消才出点FORM3？？？？
在线等待！

第一个写的是错的，大家看二楼的，谢谢

a = MsgBox("123", vbInformation + vbOKCancel, "456")这句去掉就行了

原因自己好好想想 想明白你对vb的理解就进了一步了

呵呵，我找到问题了，谢谢大家不用回了
Dim a As Integer
a = MsgBox("123", vbInformation + vbOKCancel, "456")
If a = vbOK Then
Form2.Show
Else
Form3.Show
End If
应该是这样。

Private Sub Command3_Click()
Dim a As Integer
a = MsgBox("123", vbInformation + vbOKCancel, "456")
If a = vbOK Then
Form2.Show
Else
Form3.Show
End If
End Sub