Membuat Stopwatch Di Visual Basic 2008

untuk membuat stopwatch yang harus di lakukan :

1. add button di toolbox beri nama button1
2. add label di toolbox beri nama label1
3. add timer di toolbox beri nama timer1

Tambahkan variable terlebih dahulu

Code:

Dim detik, menit, jam As Integer
    Dim a As Boolean

didalam koding dibawah Public Class Form1

sertakan koding ini juga

Code:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Timer1.Enabled = False
        a = True
    End Sub

setelah itu

doubleklik button1 nya dan masukan koding berikut

Code:

If a = True Then
            Timer1.Start()
            a = False
        Else
            Timer1.Stop()
            a = True
        End If

doubleklik timer1 dan masukan koding berikut

Code:

If detik = 60 Then
            detik = 0
            menit = menit + 1
        End If
        If menit = 60 Then
            If detik = 0 Then
                detik = 0
                menit = 0
                jam = jam + 1
            End If
        End If
        detik = detik + 1
        Label1.Text = Format(jam, "00") & ":" & Format(menit, "00") & ":" & Format(detik, "00")

selesai