Pues no se si todavía tengas ese problema, pero como ya pasó un mes y nadie responde, te dejo esto
:
Nota: Yo uso el Visual Basic 2005 Express Edition
* Agregas un boton (Button) con las siguientes propiedades:
Name: Start
Text: Start
* Agregas otro boton con las siguientes propiedades:
Name: Reset
Text: Reset
* Agregas una etiqueta (Label) y la dejas asi como esta.
* Agragas la trackbar y le pones la propiedad "Minimum" en 1
* Agregas un Timer y le pones la propiedad "Interval" en 1000
debe kedar algo asi:
Este es el código:
'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
Espero que te sirva hermano.
Ya nomás adaptas el timer y la trackbar para cambiar las velocidades.