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