Public Class Form15

​

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

​

​

        '## ====== Dimension Variables as Single Precision ====== ##

        Dim pounds, kilograms, Conpounds, Conkilograms As Double

​

        '## ------Dimension N as String = Decimal Place [4] -----------##

        Dim N As String = "n4"

        '## ========================================##

​

​

​

        '## ============Conversion Formula ================##

        pounds = 0.454            '## 1 Pound = (0.454) Kilogram Conversion ##
        kilograms = 2.205         '## 1 Kilogram = (2.205) Pound Conversion ##

        '## =========================================##

​

​

       '##======== Conversion Computations================ ##

        Conpounds = (Val(TextBox1.Text) * kilograms)
        Conkilograms = (Val(TextBox2.Text) * pounds)

        Label1.Text = Conpounds.ToString(N)
        Label2.Text = Conkilograms.ToString(N)

        '## =========================================##

​

​

    End Sub

​

​

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

​

​

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

​

​

    End Sub

​

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

        Form9.Show()
        Me.Hide()

    End Sub

End Class