membuat stopwatch sederhana

dalam membuat stopwacth sederhana ini kita membutuhkan sebuah form, sebuah label, sebuah timer dan dua buah command button. dua command button ini digunakan pada saat start stopwatch dan reset stopwatch. script lengkapnya dapat dilihat seperti dibawah ini :

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

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

Private Sub Command2_Click()
total10detik = -1
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
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 & ":" & detik10
End Sub