Vou ensinar a vocês a criarem um Cronômetro super básico.

Adicionem 3 Buttons, 1 Label e 1 Timer.

No Timer1 Coloquem o seguinte código:

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"

No Button1 Renomeie para: Reiniciar e coloque o seguinte código:

Código:

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

No Button2 Renomeie para: Começar e coloque o seguinte código:

Código:

Timer1.Interval = 1000
Timer1.Enabled = True

No Button3 Renomeie para: Parar e coloque o seguinte código:

Código:

Timer1.Interval = 1000
Timer1.Enabled = False

Agora no Label1 mude o Text para:

Código:


00:00:00