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.Text = 1 Then
            lbloutputmm.Text = 25.4
        ElseIf txtinputinch.Text = 2 Then
            lbloutputmm.Text = 50.8
            If txtinputinch.Text = 3 Then
                lbloutputmm.Text = 76.2
            ElseIf txtinputinch.Text = 4 Then
                lbloutputmm.Text = 101.6
                If txtinputinch.Text = 5 Then
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 6 Then
                    lbloutputmm.Text = 50.8
                ElseIf txtinputinch.Text = 7 Then
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 8 Then
                    lbloutputmm.Text = 50.8
                ElseIf txtinputinch.Text = 9 Then
                    lbloutputmm.Text = 50.8
                    txtinputinch.Text = 10
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 11 Then
                    lbloutputmm.Text = 50.8
                    txtinputinch.Text = 12
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 13 Then
                    lbloutputmm.Text = 50.8
                    txtinputinch.Text = 14
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 15 Then
                    lbloutputmm.Text = 50.8
                    txtinputinch.Text = 16
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 2 Then
                    lbloutputmm.Text = 50.8
                    txtinputinch.Text = 17
                    lbloutputmm.Text = 25.4
                ElseIf txtinputinch.Text = 18 Then
                    lbloutputmm.Text = 50.8
                End If



    End Sub

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


    End Sub
End Class