Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
i = 0
Do While i < 3000
DoEvents: Sleep 1
i = i + 1
Loop
Label1.Caption = "OK"
End Sub
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub Command1_Click()
i = 0
Do While i < 3000
DoEvents: Sleep 1
i = i + 1
Loop
Label1.Caption = "OK"
End Sub