[VB.NET] Cronômetro

Add form:

• Label
  
• Timer

Insira o Seguinte código no Label:

Código:

Timer1.Interval = 1000
        Timer1.Enabled = True
        Label1.Text = "00:00:00"

Explicação:

O timer vai ficar com o intevalo de "1000"
e ele irá ficarativado, e o texto do label1 irá começar assim: 00:00:00

E no timer insirá:

Código:

Dim h, min, seg As String
        h = Split(Label1.Text, ":")(0)
        min = Split(Label1.Text, ":")(1)
        seg = Split(Label1.Text, ":")(2)
        If Int(seg) < 59 Then
            seg = Int(seg) + "01"
        Else
            min = Int(min) + "01"
            seg = "00"
        End If
        If Int(min) > 59 Then
            h = Int(h) + "01"
            min = "00"
        End If
        Label1.Text = h & ":" & min & ":" & seg

Explicação:

No começo foi declarado 3 variáveis do tipo string, depois quando o texto do label for
"menor" que 59 ele irá tranformar para minutos e depois para horas.

Créditos: funman