很簡單,建立一個窗體,名字叫隱藏,並在啟動選項內選定這個窗體為啟動時自動打開。
然後在窗體的加載事件內加入如下代碼:
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