Sleep With VB
Posted on January 14, 2010
Filed Under VISUAL BASIC | Leave a Comment
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

Leave a Reply