Membuat Program Sleep Dengan Microsoft Visual Basic 6.0

Perhatikan cara pembuatanya ini :

1. Siapkan 1 buah label

kemudian masukan kode program berikut :
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


selamat mencoba.!!