???求助？？关于退出的问题？？

Question

如何单击窗口右上角的叉来退出系统？？
我用下面的不行，只能unload，不能真正的退出系统endPrivate Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Dim Msg   ' 声明变量。
   ' 设置信息文本。
   Msg = "Do you really want to exit the application?"
   ' 如果用户单击 No 按钮，则停止QueryUnload。
   If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo Then Cancel = True
End Sub

Answer 1

If MsgBox(Msg, vbQuestion + vbYesNo, Me.Caption) = vbNo 
     Then Cancel = True
Else
     End
End If

Answer 2

点叉关闭就到 form unload 里面end 就可以了------------------Private Sub Form_Unload(Cancel As Integer)end End Sub
-----------