Code Penghitung waktu MUNDUR VB.6.0

-:>Buat Project baru dengan sebuah Form
-:>Masukkan ke dalam Form tersebut 1 kontrol Label
-:>1 kontrol Tombol / Button
-:>1 buah kontrol Timer (Enabled=False; Interval=1000)
  Ikuti Langkah-LangkahNya:


1.Di bagian '(Declarations)' dari Form ketikkan :

Dim Jam As Integer, Menit As Integer, Detik As Integer

Di bagian 'Form_Load' ketikkan :

Label1.Caption = "00:00:00"

Di bagian 'Command1_Click' ketikkan :

'nilai awal (0 s/d 59)
Jam = 0
Menit = 1
Detik = 10

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

Timer1.Enabled = True
Command1.Enabled = False

Di bagian 'Timer1_Timer' ketikkan :

Detik = Detik - 1
If Detik < 0 Then
Detik = 59
    
Menit = Menit - 1
If Menit < 0 Then
Menit = 59
Jam = Jam - 1
End If
End If

Label1.Caption = Format(Jam, "00") & ":" & Format(Menit, "00") & ":" & Format(Detik, "00")

If Jam = 0 And Menit = 0 And Detik = 0 Then
Timer1.Enabled = False
Command1.Enabled = True
    
MsgBox "Waktu Habis !!!"
End If