Public Class Form20

​

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

​

        Dim Inches, Millimetres As Double

        Dim CovInches, CovMillimetres As Double
        Dim N As String = ("n2")

​

        Millimetres = 0.0393700787 'Assign 1mm = Value of Inch 
        Inches = 25.4               'Assign 1 Inch = Value of mm

 

        CovMillimetres = Inches * Val(TextBox1.Text)
        CovInches = Millimetres * Val(TextBox2.Text)

​

        Label1.Text = CovMillimetres.ToString(N)
        Label2.Text = CovInches.ToString(N)

    End Sub

​

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

​

        TextBox1.Text = ""
        TextBox2.Text = ""
        Label1.Text = ""
        Label2.Text = ""

​

    End Sub

​

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

        Form17.Show()
        Me.Hide()

    End Sub

End Class

​

​