Y pos bueno; ehm... tengo este code, a ver si lo entendéis:
Código
Private Sub TrackBar1_Scroll(sender As Object, e As EventArgs) Handles TrackBar1.Scroll Dim scv As Integer = TrackBar1.Value.ToString Dim scc As Integer = TrackBar1.SmallChange Dim uni As String = "ms" If scv = 1000 Then uni = "s" scv = scv \ 1000 End If Label4.Text = scv & uni If scv = 10 Then scc = 15 ElseIf scv = 25 Then scc = 25 ElseIf scv = 50 Then scc = 50 ElseIf scc = 1000 Then scc = 1000 End If End Sub
Muy bien, lo que hace esto es que a cada X value del TrackBar se vaya alternando el SmallChange, para que se haga más grande...
Esto se lo salta con papas, y a parte el Label4.Text no cambia la unidad, pero si el value. :S
Un saludo.