Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles TrackBar1.Scroll
Dim var_laenge As Double = 1.25
        TrackBar1.Minimum = 10
        TrackBar1.Maximum = 40
 
 
        lbl_anzeige.Text = TrackBar1.Value                          
 
        lbl_laenge.Text = Format((lbl_anzeige.Text * var_laenge / 10), "0.00")
end sub