Cara Wait Sleep VB6

Cara Wait Sleep VB6 - ok maksud dari sleep di sini adalah di beri waktu senggang untuk masuk ke codingan berikut nya atau islah lain nya kaya di freeze gitu.

lihat contoh codingan di bawah. biasa nya kalo kita langsung tekan tombol command nya langsung muncul msgbox tapi berhubung di kasih function sleep maka msgbox akan muncul sesuai dengan waktu yang akan di tentukan

Private Sub Sleep(ByVal HowLong As Date)
    Dim endDate As Date
    endDate = DateAdd("s", HowLong, Now)
    While endDate > Now
        DoEvents
    Wend
End Sub

Private Sub Command1_Click()
Sleep 4
MsgBox " contoh sleep taufik "
End Sub

Jika ingin mencobanya silahkan download programnya
Mediafire || 4shared