Sleep With Visual Basic 6

Option Explicit
Private Declare Sub Sleep Lib “kernel32″
(ByVal dwMilliseconds As Long)
Private Sub Form_Click()   
Me.Caption = “Sleeping”    Call Sleep(20000)    Me.Caption =
“Awake” End Sub
Private Sub Label1_Click()    Me.Caption =
“Sleeping”    Call Sleep(20000)    Me.Caption = “Awake” End
Sub