如何在退出整个系统前提示用户

Private Sub Form_Load()
Me.Visible = False
End Sub

'在窗体的卸载事件中加入如下代码：
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你真的要退出吗？", vbYesNo vbQuestion, "请确认…") = VBNo Then Cancel = True
End Sub