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

Comments

Leave a Reply




  • Communities

    bloggersumut.net
  • Recent Visitorz

  • blog visitors

    free html visitor counters
  • online status

  • Jam

  • live on twitter