Prosedur Sleep

Prosedur Sleep digunakan untuk menunda / menghentikan sementara proses jalannya prosedur dalam jangka waktu tertentu. Untuk menggunakannya buat sebuah Module baru dan ketikkan :

Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Integer)

Sebagai contoh penggunaanya, buat sebuah Tombol ke dalam Form, lalu ketikkan kode berikut di Tombol click :

MsgBox "Tidur sebentar !"
Sleep 3000 'selama 3 detik
MsgBox "Bangun lagi !"

Dalam beberapa kasus, penggunaan sleep dengan cara diatas dapat mengganggu prosedur-prosedur yang lain. Maka dari itu, perlu dibuat prosedur sleep buatan sendiri. Caranya buat sebuah Module baru dan ketikkkan :
[ VB 6.0 ]

Public Sub Tidur(ByVal Detik As Integer)
Dim t As Single
t = Timer
Do Until (Timer - t) >= Detik
DoEvents
Loop
End Sub

[ VB .NET ]

Public Sub Tidur(ByVal Detik As Integer)
Dim t As Double = Microsoft.VisualBasic.Timer
Do Until (Microsoft.VisualBasic.Timer - t) >= Detik
Application.DoEvents()
Loop
End Sub

Sebagai contoh penggunaanya, buat sebuah Tombol ke dalam Form, lalu ketikkan kode berikut di Tombol click :

MsgBox "Tidur sebentar !"
Tidur 3 'selama 3 detik
MsgBox "Bangun lagi !"