membuat stopwatch di vb 6

 Stopwatch (VB 6.0)
Berikut ini cara membuat aplikasi stopwatch atau aplikasi penghitung waktu yang sederhana menggunakan Visual Basic.
Buat Project baru dengan sebuah Form. Masukkan ke dalam Form tersebut 1 kontrol Label, 2 kontrol Tombol / Button (utk Start dan Reset), dan 1 buah kontrol Timer (Enabled=False; Interval=10). Kemudian atur seperti gambar diatas, dan bagian kodenya adalah :

[ VB 6.0 ]
Di bagian '(Declarations)' dari Form ketikkan :
Dim Jam As Integer, Menit As Integer, Detik As Integer, mDetik As Integer
Di bagian 'Form_Load' ketikkan :
Label1.Caption = "00 : 00 : 00,00"
Di bagian 'Command1_Click' ketikkan : (Start)
Timer1.Enabled = (Command1.Caption = "Start")
Command1.Caption = IIf(Command1.Caption = "Start", "Stop", "Start")
Di bagian 'Command2_Click' ketikkan : (Reset)
Timer1.Enabled = False
Command1.Caption = "Start"
Label1.Caption = "00 : 00 : 00,00"
Jam = 0
Menit = 0
Detik = 0
mDetik = 0
Di bagian 'Timer1_Timer' ketikkan :
mDetik = mDetik + 1
If mDetik = 100 Then
mDetik = 0
   
Detik = Detik + 1
If Detik = 60 Then
Detik = 0
       
Menit = Menit + 1
If Menit = 60 Then
Menit = 0
Jam = Jam + 1
End If
       
End If
End If

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