Private Sub scrInch_Scroll(ByVal sender As System.Object, _ 
 ByVal e As System.Windows.Forms.ScrollEventArgs) Handles scrInch.Scroll
    Me.lblInch.Text = Me.scrInch.Value
    Me.lblCenti.Text = Me.scrInch.Value * 2.54
End Sub 'scrInch_Scroll