The Code

​

 

 

 

 

Public Class Form77

​

    '## Maths Functions ##
    '## Built-In Mathematical Functions ##
    '## The (Math.Round) Function returns Random Value between 0 and Variable ##

​

    Dim Number1 As Double
    Dim Number2 As Double
    Dim RoundValue As Double

​

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

​

        '## Int(Value) defines Integer of Random Number ##

        Number1 = TextBox1.Text
        RoundValue = Math.Round(Val(Number1), 2)
        Label1.Text = RoundValue

​

        '## Assigning Value Label ##
        '## Assigning Variable to Label alternative Formatting  ##

        Number2 = TextBox2.Text
        Label2.Text = Math.Round(Val(Number2), 2)

​

    End Sub

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

​

        '## Clear TextBox and Labels ##

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

​

    End Sub

​

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

​

        Form73.Show()
        Me.Hide()

​

    End Sub

End Class

​