Public Class Form1

    Private Sub btnconvert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnconvert.Click


    End Sub

    Private Sub txtinputinch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtinputinch.TextChanged
        If txtinputinch = 1 Then
            lbloutputmm.Text = 25.4 * 1
            ElseIf txtinputinch.Text = 4 Then
        lbloutputmm.Text = 25.4 * 2
        If txtinputinch.Text = 5 Then
            lbloutputmm.Text = 25.4 * 3
        ElseIf txtinputinch.Text = 6 Then
            lbloutputmm.Text = 25.4 * 5
        ElseIf txtinputinch.Text = 7 Then
            lbloutputmm.Text = 25.4 * 6
        ElseIf txtinputinch.Text = 8 Then
            lbloutputmm.Text = 25.4 * 7
        ElseIf txtinputinch.Text = 9 Then
            lbloutputmm.Text = 25.4 * 8
            txtinputinch.Text = 10
            lbloutputmm.Text = 25.4 * 9
        ElseIf txtinputinch.Text = 11 Then
            lbloutputmm.Text = 25.4 * 10
            txtinputinch.Text = 12
            lbloutputmm.Text = 25.4 * 11
        ElseIf txtinputinch.Text = 13 Then
            lbloutputmm.Text = 25.4 * 12
            txtinputinch.Text = 14
            lbloutputmm.Text = 25.4 * 13
        ElseIf txtinputinch.Text = 15 Then
            lbloutputmm.Text = 25.4 * 14
            txtinputinch.Text = 16
            lbloutputmm.Text = 25.4 * 15
        ElseIf txtinputinch.Text = 2 Then
            lbloutputmm.Text = 25.4 * 16
            txtinputinch.Text = 17
            lbloutputmm.Text = 25.4 * 17
        ElseIf txtinputinch.Text = 18 Then
            lbloutputmm.Text = 25.4 * 18
        End If



    End Sub

    Private Sub lblmm_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)


    End Sub
End Class