VB.Net Kronometre sayaç yapımı

 Dim ms As Integer = 0
    Dim sn As Integer = 0
    Dim dk As Integer = 0

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        If MS = 100 Then 'sorun yaşarsan bunu 65 yada 60 yap
            MS = 0
            sn += 1
        End If

        If sn = 60 Then
            sn = 0
            dk += 1
        End If

        Dim deger As String = ""

        If dk < 10 Then
            deger = deger & "0" & dk.ToString() & "."
        Else
            deger = deger & dk.ToString() & "."
        End If

        If sn < 10 Then
            deger = deger & "0" & sn.ToString() & "."
        Else
            deger = deger & sn.ToString() & "."
        End If

        deger = deger & MS.ToString()
        TextBox1.Text = deger
        MS += 1
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub

class Sayac
{
    private int ms = 0;
    private int sn = 0;
    private int dk = 0;

    private void Timer1_Tick(object sender, EventArgs e)
    {
        if (MS == 100)
        {
            MS = 0;
            sn += 1;
        }

        if (sn == 60)
        {
            sn = 0;
            dk += 1;
        }

        string deger = "";

        if (dk < 10)
            deger = deger + "0" + dk.ToString() + ".";
        else
            deger = deger + dk.ToString() + ".";

        if (sn < 10)
            deger = deger + "0" + sn.ToString() + ".";
        else
            deger = deger + sn.ToString() + ".";

        deger = deger + MS.ToString();
        TextBox1.Text = deger;
        MS += 1;
    }

    private void Button1_Click(object sender, EventArgs e)
    {
        Timer1.Start();
    }
}