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

'在窗體的卸載事件中加入如下代碼：
Private Sub Form_Unload(Cancel As Integer)
If MsgBox("你真的要退出嗎？", vbYesNo vbQuestion, "請(qǐng)確認(rèn)…") = VBNo Then Cancel = True
End Sub