script untuk menghitung waktu mundur

dalam tutorial kali ini kita akan mencoba membuat sebuah script sederhana untuk menghitung mundur waktu. sebelumnya kita persiapkan dalam project kita sebuah form, sebuah komponen timer dan sebuah comand button serta sebuah label.
untuk scripnya dapat dituliskan sebagai berikut :

Dim total10detik, totaldetik, detik10 As Integer
Dim detik, menit, jam As Integer

Private Sub Form_Load()
jam = Hour(Now)
menit = Minute(Now)
detik = Second(Now)
Time = TimeSerial(jam, menit, detik)
Label1.Caption = Format$(Time, "hh") & ":" & Format$(Time, "nn") & ":" & Format$(Time, "ss")
total10detik = detik * 10 + menit * 600 + jam * 36000
End Sub

Private Sub Timer1_Timer()
If total10detik <= 0 Then
Beep
Label1 = "0:0:0"
Timer1.Enabled = False
Exit Sub
End If

total10detik = total10detik - 1
detik10 = total10detik Mod 10
totaldetik = Int(total10detik / 10)
detik = totaldetik Mod 60
menit = Int(totaldetik / 60) Mod 60
jam = Int(totaldetik / 3600)
Label1 = jam & ":" & menit & ":" & detik
End Sub

Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub