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
Perhatian: Yuk Baca Artikel bagus di Nurul Musthofa
No comments:
Post a comment