Option Strict On
Public Class Form1
    Dim Dragging As Boolean
    Dim PointClicked As Point

    Private Sub Button27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button27.Click
        Dim feet As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            feet = CDec(TextBox20.Text)
            inch = (feet) * 12
            TextBox19.Text = CStr((inch))
            foot = (feet) * 1
            TextBox18.Text = CStr((foot))
            yard = (feet) / 3
            TextBox17.Text = CStr((yard))
            mile = (feet) / 5280
            TextBox16.Text = CStr((mile))
            milli = CDec((feet) * 304.8)
            TextBox15.Text = CStr((milli))
            centi = CDec((feet) * 30.48)
            TextBox14.Text = CStr((centi))
            deci = CDec((feet) * 3.048)
            TextBox13.Text = CStr((deci))
            meter = CDec((feet) * 0.3048)
            TextBox12.Text = CStr((meter))
            kilo = CDec((feet) * 0.0003048)
            TextBox11.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button36.Click
        Dim yards As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            yards = CDec(TextBox30.Text)
            inch = (yards) * 36
            TextBox29.Text = CStr((inch))
            foot = (yards) * 3
            TextBox28.Text = CStr((foot))
            yard = (yards) * 1
            TextBox27.Text = CStr((yard))
            mile = (yards) / 1760
            TextBox26.Text = CStr((mile))
            milli = CDec((yards) * 914.4)
            TextBox25.Text = CStr((milli))
            centi = CDec((yards) * 91.44)
            TextBox24.Text = CStr((centi))
            deci = CDec((yards) * 9.144)
            TextBox23.Text = CStr((deci))
            meter = CDec((yards) * 0.9144)
            TextBox22.Text = CStr((meter))
            kilo = CDec((yards) * 0.0009144)
            TextBox21.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button45.Click
        Dim miles As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            miles = CDec(TextBox40.Text)
            inch = (miles) * 63360
            TextBox39.Text = CStr((inch))
            foot = (miles) * 5280
            TextBox38.Text = CStr((foot))
            yard = (miles) * 1760
            TextBox37.Text = CStr((yard))
            mile = (miles) * 1
            TextBox36.Text = CStr((mile))
            milli = (miles) * 1609344
            TextBox35.Text = CStr((milli))
            centi = CDec((miles) * 160934.4)
            TextBox34.Text = CStr((centi))
            deci = CDec((miles) * 16093.44)
            TextBox33.Text = CStr((deci))
            meter = CDec((miles) * 1609.344)
            TextBox32.Text = CStr((meter))
            kilo = CDec((miles) * 1.609344)
            TextBox31.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button54_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button54.Click
        Dim millis As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            millis = CDec(TextBox50.Text)
            inch = CDec((millis) / 25.4)
            TextBox49.Text = CStr((inch))
            foot = CDec((millis) / 304.8)
            TextBox48.Text = CStr((foot))
            yard = CDec((millis) / 914.4)
            TextBox47.Text = CStr((yard))
            mile = (millis) / 1609344
            TextBox46.Text = CStr((mile))
            milli = (millis) * 1
            TextBox45.Text = CStr((milli))
            centi = (millis) / 10
            TextBox44.Text = CStr((centi))
            deci = (millis) / 100
            TextBox43.Text = CStr((deci))
            meter = (millis) / 1000
            TextBox42.Text = CStr((meter))
            kilo = (millis) / 1000000
            TextBox41.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button63.Click
        Dim centis As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            centis = CDec(TextBox60.Text)
            inch = CDec((centis) / 2.54)
            TextBox59.Text = CStr((inch))
            foot = CDec((centis) / 30.48)
            TextBox58.Text = CStr((foot))
            yard = CDec((centis) / 91.44)
            TextBox57.Text = CStr((yard))
            mile = CDec((centis) / 160934.4)
            TextBox56.Text = CStr((mile))
            milli = CDec((centis) * 0.1)
            TextBox55.Text = CStr((milli))
            centi = (centis) * 1
            TextBox54.Text = CStr((centi))
            deci = (centis) / 10
            TextBox53.Text = CStr((deci))
            meter = (centis) / 100
            TextBox52.Text = CStr((meter))
            kilo = (centis) / 100000
            TextBox51.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button72.Click
        Dim decis As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            decis = CDec(TextBox70.Text)
            inch = CDec((decis) / 0.254)
            TextBox69.Text = CStr((inch))
            foot = CDec((decis) / 3.048)
            TextBox68.Text = CStr((foot))
            yard = CDec((decis) / 9.144)
            TextBox67.Text = CStr((yard))
            mile = CDec((decis) / 16093.44)
            TextBox66.Text = CStr((mile))
            milli = (decis) * 100
            TextBox65.Text = CStr((milli))
            centi = (decis) * 10
            TextBox64.Text = CStr((centi))
            deci = (decis) * 1
            TextBox63.Text = CStr((deci))
            meter = CDec((decis) * 0.1)
            TextBox62.Text = CStr((meter))
            kilo = CDec((decis) * 0.0001)
            TextBox61.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button81_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button81.Click
        Dim meters As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            meters = CDec(TextBox80.Text)
            inch = CDec((meters) / 0.0254)
            TextBox79.Text = CStr((inch))
            foot = CDec((meters) / 0.3048)
            TextBox78.Text = CStr((foot))
            yard = CDec((meters) / 0.9144)
            TextBox77.Text = CStr((yard))
            mile = CDec((meters) / 1609.344)
            TextBox76.Text = CStr((mile))
            milli = (meters) * 1000
            TextBox75.Text = CStr((milli))
            centi = (meters) * 100
            TextBox74.Text = CStr((centi))
            deci = (meters) * 10
            TextBox73.Text = CStr((deci))
            meter = (meters) * 1
            TextBox72.Text = CStr((meter))
            kilo = CDec((meters) * 0.001)
            TextBox71.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button90_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button90.Click
        Dim kilos As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            kilos = CDec(TextBox90.Text)
            inch = CDec((kilos) * 39370.0787)
            TextBox89.Text = CStr((inch))
            foot = CDec((kilos) * 3280.8399)
            TextBox88.Text = CStr((foot))
            yard = CDec((kilos) / 0.0009144)
            TextBox87.Text = CStr((yard))
            mile = CDec((kilos) / 1.609344)
            TextBox86.Text = CStr((mile))
            milli = (kilos) * 1000000
            TextBox85.Text = CStr((milli))
            centi = (kilos) * 100000
            TextBox84.Text = CStr((centi))
            deci = (kilos) * 10000
            TextBox83.Text = CStr((deci))
            meter = (kilos) * 1000
            TextBox82.Text = CStr((meter))
            kilo = CDec((kilos) * 1)
            TextBox81.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button18.Click
        Clipboard.SetDataObject(TextBox2.Text)
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        Clipboard.SetDataObject(TextBox3.Text)
    End Sub

    Private Sub Button11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button11.Click
        Clipboard.SetDataObject(TextBox4.Text)
    End Sub

    Private Sub Button12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button12.Click
        Clipboard.SetDataObject(TextBox5.Text)
    End Sub

    Private Sub Button14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button14.Click
        Clipboard.SetDataObject(TextBox6.Text)
    End Sub

    Private Sub Button13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button13.Click
        Clipboard.SetDataObject(TextBox7.Text)
    End Sub

    Private Sub Button16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button16.Click
        Clipboard.SetDataObject(TextBox8.Text)
    End Sub

    Private Sub Button15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button15.Click
        Clipboard.SetDataObject(TextBox9.Text)
    End Sub

    Private Sub Button17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button17.Click
        Clipboard.SetDataObject(TextBox10.Text)
    End Sub

    Private Sub Button91_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button91.Click
        Me.Close()
    End Sub

    Private Sub Button92_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button92.Click
        Me.Close()
    End Sub

    Private Sub Button93_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button93.Click
        Me.Close()
    End Sub

    Private Sub Button94_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button94.Click
        Me.Close()
    End Sub

    Private Sub Button95_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button95.Click
        Me.Close()
    End Sub

    Private Sub Button96_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button96.Click
        Me.Close()
    End Sub

    Private Sub Button97_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button97.Click
        Me.Close()
    End Sub

    Private Sub Button98_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button98.Click
        Me.Close()
    End Sub

    Private Sub Button99_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button99.Click
        Me.Close()
    End Sub

    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If

    End Sub

    Private Sub TextBox20_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox20.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox30_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox30.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox40_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox40.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox50_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox50.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox60_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox60.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox70_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox70.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox80_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox80.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub TextBox90_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox90.KeyPress
        If e.KeyChar = "." Then
            If TextBox1.Text.IndexOf(".") > -1 Then
                e.Handled = True
            End If
        ElseIf Char.IsNumber(e.KeyChar) = False AndAlso Char.IsControl(e.KeyChar) = False Then
            e.Handled = True

        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Clipboard.SetDataObject(TextBox19.Text)
    End Sub

    Private Sub Button26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button26.Click
        Clipboard.SetDataObject(TextBox18.Text)
    End Sub

    Private Sub Button25_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button25.Click
        Clipboard.SetDataObject(TextBox17.Text)
    End Sub

    Private Sub Button24_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button24.Click
        Clipboard.SetDataObject(TextBox16.Text)
    End Sub

    Private Sub Button22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button22.Click
        Clipboard.SetDataObject(TextBox15.Text)
    End Sub

    Private Sub Button23_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button23.Click
        Clipboard.SetDataObject(TextBox14.Text)
    End Sub

    Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
        Clipboard.SetDataObject(TextBox13.Text)
    End Sub

    Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
        Clipboard.SetDataObject(TextBox12.Text)
    End Sub

    Private Sub Button19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button19.Click
        Clipboard.SetDataObject(TextBox11.Text)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Clipboard.SetDataObject(TextBox29.Text)
    End Sub

    Private Sub Button35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button35.Click
        Clipboard.SetDataObject(TextBox28.Text)
    End Sub

    Private Sub Button34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button34.Click
        Clipboard.SetDataObject(TextBox27.Text)
    End Sub

    Private Sub Button33_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button33.Click
        Clipboard.SetDataObject(TextBox26.Text)
    End Sub

    Private Sub Button31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button31.Click
        Clipboard.SetDataObject(TextBox25.Text)
    End Sub

    Private Sub Button32_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button32.Click
        Clipboard.SetDataObject(TextBox24.Text)
    End Sub

    Private Sub Button29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button29.Click
        Clipboard.SetDataObject(TextBox23.Text)
    End Sub

    Private Sub Button30_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button30.Click
        Clipboard.SetDataObject(TextBox22.Text)
    End Sub

    Private Sub Button28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button28.Click
        Clipboard.SetDataObject(TextBox21.Text)
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Clipboard.SetDataObject(TextBox39.Text)
    End Sub

    Private Sub Button44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button44.Click
        Clipboard.SetDataObject(TextBox38.Text)
    End Sub

    Private Sub Button43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button43.Click
        Clipboard.SetDataObject(TextBox37.Text)
    End Sub

    Private Sub Button42_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button42.Click
        Clipboard.SetDataObject(TextBox36.Text)
    End Sub

    Private Sub Button40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button40.Click
        Clipboard.SetDataObject(TextBox35.Text)
    End Sub

    Private Sub Button41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button41.Click
        Clipboard.SetDataObject(TextBox34.Text)
    End Sub

    Private Sub Button38_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button38.Click
        Clipboard.SetDataObject(TextBox33.Text)
    End Sub

    Private Sub Button39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button39.Click
        Clipboard.SetDataObject(TextBox32.Text)
    End Sub

    Private Sub Button37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button37.Click
        Clipboard.SetDataObject(TextBox31.Text)
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Clipboard.SetDataObject(TextBox49.Text)
    End Sub

    Private Sub Button53_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button53.Click
        Clipboard.SetDataObject(TextBox48.Text)
    End Sub

    Private Sub Button52_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button52.Click
        Clipboard.SetDataObject(TextBox47.Text)
    End Sub

    Private Sub Button51_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button51.Click
        Clipboard.SetDataObject(TextBox46.Text)
    End Sub

    Private Sub Button49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button49.Click
        Clipboard.SetDataObject(TextBox45.Text)
    End Sub

    Private Sub Button50_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button50.Click
        Clipboard.SetDataObject(TextBox44.Text)
    End Sub

    Private Sub Button47_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button47.Click
        Clipboard.SetDataObject(TextBox43.Text)
    End Sub

    Private Sub Button48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button48.Click
        Clipboard.SetDataObject(TextBox42.Text)
    End Sub

    Private Sub Button46_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button46.Click
        Clipboard.SetDataObject(TextBox41.Text)
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Clipboard.SetDataObject(TextBox59.Text)
    End Sub

    Private Sub Button62_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button62.Click
        Clipboard.SetDataObject(TextBox58.Text)
    End Sub

    Private Sub Button61_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button61.Click
        Clipboard.SetDataObject(TextBox57.Text)
    End Sub

    Private Sub Button60_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button60.Click
        Clipboard.SetDataObject(TextBox56.Text)
    End Sub

    Private Sub Button58_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button58.Click
        Clipboard.SetDataObject(TextBox55.Text)
    End Sub

    Private Sub Button59_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button59.Click
        Clipboard.SetDataObject(TextBox54.Text)
    End Sub

    Private Sub Button56_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button56.Click
        Clipboard.SetDataObject(TextBox53.Text)
    End Sub

    Private Sub Button57_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button57.Click
        Clipboard.SetDataObject(TextBox52.Text)
    End Sub

    Private Sub Button55_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button55.Click
        Clipboard.SetDataObject(TextBox51.Text)
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Clipboard.SetDataObject(TextBox69.Text)
    End Sub

    Private Sub Button71_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button71.Click
        Clipboard.SetDataObject(TextBox68.Text)
    End Sub

    Private Sub Button70_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button70.Click
        Clipboard.SetDataObject(TextBox67.Text)
    End Sub

    Private Sub Button69_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button69.Click
        Clipboard.SetDataObject(TextBox66.Text)
    End Sub

    Private Sub Button67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button67.Click
        Clipboard.SetDataObject(TextBox65.Text)
    End Sub

    Private Sub Button68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button68.Click
        Clipboard.SetDataObject(TextBox64.Text)
    End Sub

    Private Sub Button65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button65.Click
        Clipboard.SetDataObject(TextBox63.Text)
    End Sub

    Private Sub Button66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button66.Click
        Clipboard.SetDataObject(TextBox62.Text)
    End Sub

    Private Sub Button64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button64.Click
        Clipboard.SetDataObject(TextBox61.Text)
    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Clipboard.SetDataObject(TextBox79.Text)
    End Sub

    Private Sub Button80_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button80.Click
        Clipboard.SetDataObject(TextBox78.Text)
    End Sub

    Private Sub Button79_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button79.Click
        Clipboard.SetDataObject(TextBox77.Text)
    End Sub

    Private Sub Button78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button78.Click
        Clipboard.SetDataObject(TextBox76.Text)
    End Sub

    Private Sub Button76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button76.Click
        Clipboard.SetDataObject(TextBox75.Text)
    End Sub

    Private Sub Button77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button77.Click
        Clipboard.SetDataObject(TextBox74.Text)
    End Sub

    Private Sub Button74_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button74.Click
        Clipboard.SetDataObject(TextBox73.Text)
    End Sub

    Private Sub Button75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button75.Click
        Clipboard.SetDataObject(TextBox72.Text)
    End Sub

    Private Sub Button73_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button73.Click
        Clipboard.SetDataObject(TextBox71.Text)
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        Clipboard.SetDataObject(TextBox89.Text)
    End Sub

    Private Sub Button89_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button89.Click
        Clipboard.SetDataObject(TextBox88.Text)
    End Sub

    Private Sub Button88_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button88.Click
        Clipboard.SetDataObject(TextBox87.Text)
    End Sub

    Private Sub Button87_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button87.Click
        Clipboard.SetDataObject(TextBox86.Text)
    End Sub

    Private Sub Button85_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button85.Click
        Clipboard.SetDataObject(TextBox85.Text)
    End Sub

    Private Sub Button86_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button86.Click
        Clipboard.SetDataObject(TextBox84.Text)
    End Sub

    Private Sub Button83_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button83.Click
        Clipboard.SetDataObject(TextBox83.Text)
    End Sub

    Private Sub Button84_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button84.Click
        Clipboard.SetDataObject(TextBox82.Text)
    End Sub

    Private Sub Button82_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button82.Click
        Clipboard.SetDataObject(TextBox81.Text)
    End Sub

    Private Sub Form1_FormClosing(ByVal sender As System.Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        MsgBox("Size Unit Converter Programmed by Troy Anikienko" & Chr(10) & "" & Chr(10) & "                 The Program Will Now Close", MsgBoxStyle.OkOnly, Title:="Closing Credits")
    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        Dim inches As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            inches = CDec(TextBox1.Text)
            inch = (inches) * 1
            TextBox2.Text = CStr((inch))
            foot = (inches) / 12
            TextBox3.Text = CStr((foot))
            yard = (inches) / 36
            TextBox4.Text = CStr((yard))
            mile = (inches) / 63360
            TextBox5.Text = CStr((mile))
            milli = CDec((inches) * 25.4)
            TextBox6.Text = CStr((milli))
            centi = CDec((inches) * 2.54)
            TextBox7.Text = CStr((centi))
            deci = CDec((inches) * 0.254)
            TextBox8.Text = CStr((deci))
            meter = CDec((inches) * 0.0254)
            TextBox9.Text = CStr((meter))
            kilo = CDec((inches) / 39370.0787)
            TextBox10.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim inches As Decimal, inch As Decimal, foot As Decimal, yard As Decimal, mile As Decimal, milli As Decimal, centi As Decimal, deci As Decimal, meter As Decimal, kilo As Decimal
        Try
            inches = CDec(TextBox1.Text)
            inch = (inches) * 1
            TextBox2.Text = CStr((inch))
            foot = (inches) / 12
            TextBox3.Text = CStr((foot))
            yard = (inches) / 36
            TextBox4.Text = CStr((yard))
            mile = (inches) / 63360
            TextBox5.Text = CStr((mile))
            milli = CDec((inches) * 25.4)
            TextBox6.Text = CStr((milli))
            centi = CDec((inches) * 2.54)
            TextBox7.Text = CStr((centi))
            deci = CDec((inches) * 0.254)
            TextBox8.Text = CStr((deci))
            meter = CDec((inches) * 0.0254)
            TextBox9.Text = CStr((meter))
            kilo = CDec((inches) / 39370.0787)
            TextBox10.Text = CStr((kilo))

        Catch ex As Exception
            MsgBox("Enter in a valid measurement to be convered")

        End Try
    End Sub
End Class