Public Class Form1

Private Sub TrackBar1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
Label2.Text = "Lenght in Inch = " &
Format(TrackBar1.Value / 5, "#.00")
End Sub
Private Sub TrackBar1_ValueChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.ValueChanged
Label2.Text = "Lenght in Inch = " &
Format(TrackBar1.Value / 5, "#.00")
End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
TrackBar1.Value = CInt(CType(sender, Label).Text) * 5
End Sub

Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click
TrackBar1.Value = CInt(CType(sender, Label).Text) * 5
End Sub

Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click
TrackBar1.Value = CInt(CType(sender, Label).Text) * 5
End Sub
End Class