'Variable que contiene el numero en el conteo:
    Dim numero As Short = 0

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'La etiqueta tiene el numero 0 al correr el programa
        'y la TrackBar empieza en la mitad:
        Label1.Text = 0
        TrackBar1.Value = 5
    End Sub

    Private Sub Start_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Start.Click
        'Al oprimir el boton "Start" empieza el conteo:
        Timer1.Enabled = True
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        'Cuando el conteo llega a 100,
        'el conteo se detiene:
        If numero >= 100 Then
            'Se detiene el conteo
            Timer1.Enabled = False
            'numero pasa de 100 a 0
            numero = 0
        Else
            'Si el conteo aun no llega a 100,
            'suma 1 a número y la etiqueta
            'muestra el valor de numero:
            numero = numero + 1
            Label1.Text = numero
        End If
    End Sub

    Private Sub Reset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Reset.Click
        'Al oprimir el boton "Reset" se detiene el conteo,
        'la etiqueta muestra el numero 0
        'y numero se resetea a 0:
        Timer1.Enabled = False
        Label1.Text = 0
        numero = 0
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        'El valor inicial de la TrackBar es 5.
        'Se multiplica el valor de la TrackBar
        'por 200 milisegundos.
        'Al correr el programa el producto es 1000 milisegundos,
        '(1000 milisegundos = 1 segundo)
        'lo que significa que la velocidad es de 1 numero/segundo
        Timer1.Interval = TrackBar1.Value * 200
    End Sub