VB中当先点击command1后，弹出msgbox，当msgbox关闭后，点击command2，关闭form1，

'定义窗体级全局x，用来描述三种状态
'起始状态 x = 0 ,两个按钮都没有点过
'x=1 点过command1
'x=2 点过command2
Dim x As Integer


Private Sub Command1_Click()
'点击command1判断一下点击前的状态
    If x = 0 Then
       MsgBox "先点command1"
    End If
    x = 1
End Sub

Private Sub Command2_Click()
'点击command1判断一下点击前的状态
    If x = 0 Then
        MsgBox "先点command2"
    End If
    If x = 1 Then
        Unload Me
    End If
    x = 2
End Sub

Private Sub Form_Load()
    x = 0 '窗体加载设置初始状态
End Sub

Private Sub Command1_Click()
Call Command2_Click
End Sub
Private Sub Command2_Click()
MsgBox "关闭form1界面", , "提示"
Unload Form1
End Sub

用个变量判断一下状态好了，command1被点击过，状态变为ture