Question

编好的VB程序为什么运行后会出现四个窗口？

程序目的：
1、分别在10：00：00；11：00：00；15：30：00；17：30：00这四个时间弹出窗口；
2、点击弹出窗口任意位置可使窗口消失3、如未点击弹出窗口则保持10秒后自动消失
================================
Private Sub Form_Click()Form1.Visible = FalseEnd Sub
Private Sub Form_Load()Dim zhucebiao As ObjectSet zhucebiao = CreateObject("WSCRIPT.SHELL")zhucebiao.regwrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\提醒", "C:\Program Files\提醒\提醒.exe", "REG_SZ"q = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3)End Sub
Private Sub Image1_Click()Form1.Visible = FalseEnd Sub
Private Sub Label1_Click()Form1.Visible = FalseEnd Sub
Private Sub Label2_Click()Form1.Visible = FalseEnd Sub
Private Sub Label3_Click()Form1.Visible = FalseEnd Sub
整个代码在图片里，百度输入不了那么多的代码
======================





Answer 1

将所有的这句
Form1.Visible = False
换成
Unload Me