hola Alex bueno aqui te dejo un pequeño cronometro como deseeas lo primero que tienes que tener es un Timer, Label1

Boton 1 = Volver a Cero,

Boton 2 = Pausar,

Boton 3 = Iniciar



Comensemos



///////////////////////////////////////////////////////////////////////////////////

Public Class Form3



Private hora As Integer = 0

Private minuto As Integer = 0

Private segundo As Integer = 0

Private milisegundo As Integer = 0



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

hora = 0

minuto = 0

segundo = 0

milisegundo = 0



mostrarTiempo()

End Sub



Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Timer1.Enabled = False

End Sub



Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Timer1.Enabled = True

End Sub



Sub mostrarTiempo()

Label1.Text = hora.ToString.PadLeft(2, "0") & ":"

Label1.Text &= minuto.ToString.PadLeft(2, "0") & ":"

Label1.Text &= segundo.ToString.PadLeft(2, "0") & ":"

Label1.Text &= milisegundo.ToString.PadLeft(1, "0")



Label1.Refresh()

End Sub



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

milisegundo += 1

If milisegundo = 9 Then

milisegundo = 0

segundo += 1

If segundo = 59 Then

segundo = 0

minuto += 1

If minuto = 59 Then

minuto = 0

hora += 1

End If

End If

End If

mostrarTiempo()

End Sub



///////////////////////////////////////////////////////////////////////////////////





es un peque;o cronometro espero averte ayudado con lo que desses

Cualkier cosa deja ////// informacion \\\\\\\





Salu2

Existe, en VBasic un control Timer que tendrá que incializar al cargarse el formulario (evento Form Load) y luego guardar su valor y resetear cuando el usuario acabe de jugar (aquí tienes que decidir tú los eventos)

ejemplo



Label1.text = val (label8.text) + val ("1")



'Nota, el label 1 deve estar en 0, cuando le cambias el texto

'Luego



If label1.text = "10"

label2.text = val (abel2.text) + ("1")

label1.text = "0"



end if



y asi sucesivamente