Senin, 15 Agustus 2011

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

Tidak ada komentar:

Poskan Komentar

Related Posts Plugin for WordPress, Blogger...