只需新建一个窗体,名称可叫"Hideaway",并在启动选项内选定这个窗体为启动时自动打开。
然后在窗体的加载事件内加入如下代码:
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