kronometre yapımı visual basic

formumuza 3 tane label ve 1 tane timer ekliyoruz;
form load kısmımıza geçiyoruz (formumuza çift tıklıyarak)

Public Class Form1
Dim saat, dakika, saniye As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Start()
saat = Val(Label1.Text)
dakika = Val(Label2.Text)
saniye = Val(Label3.Text)
Label1.BackColor = Color.Transparent
Label2.BackColor = Color.Transparent
Label3.BackColor = Color.Transparent
Label4.BackColor = Color.Transparent
Label5.BackColor = Color.Transparent

timer'in tick olayına giriyoruz(timer'i çift tıklayarak);

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
saniye = saniye + 1
If saniye = 60 Then
saniye = 0
dakika = dakika + 1
If dakika = 59 Then
dakika = 0
saat = saat + 1
If saat = 24 Then
saat = 0

End If
End If
End If
Label1.Text = Val(saat)
Label2.Text = Val(dakika)
Label3.Text = Val(saniye)

işte bu kadar