谁能让这个程序立刻关闭
谁能让这个程序立刻关闭
Private Sub Command1_Click()
Unload Me '这里如果是end就立刻关闭窗体了
End Sub
Private Sub Timer1_Timer()
Dim i As Long
For i = 1 To 1000
Label1.Caption = i
Delay 10
Next
End Sub
Public Sub Delay(mSec As Long)
On Error GoTo ShowErr
Dim TStart As Single
TStart = Timer
While (Timer - TStart) < (mSec / 1000)
DoEvents
Wend
Exit Sub
ShowErr:
MsgBox Err.Source & "------" & Err.Description
Exit Sub
End Sub