Public Class Form10

​

   

​

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

        Dim PerIncrease, DecimalValue, IncAmount, OrigAmount As Single
        Dim Whole As Single = 100
        Dim N As String = "n3"

​

        PerIncrease = TextBox1.Text        '## Assign % Value to TextBox1 ##
        IncAmount = TextBox2.Text         '## Assign Increased Amount to TextBox2 ##

        DecimalValue = (1 - (PerIncrease / Whole))    '## Compute %age to Decimal Value
        OrigAmount = (IncAmount / (DecimalValue))  '## Calculate Original by Division

​

        Label1.Text = DecimalValue                 '##  Label1 = Decimal Value       ##
        Label2.Text = IncAmount                    '##  Label2 = Increased Amount  ##

        Label3.Text = IncAmount                    '##  Label3 = Increased Amount  ##
        Label4.Text = DecimalValue                 '##  Label4 = Decimal Value       ##
        Label5.Text = OrigAmount.ToString(N)  '##  Label5 = Original Amount    ##

        Label6.Text = DecimalValue                 '##  Label6 = Decimal Value       ##
        Label7.Text = OrigAmount.ToString(N)   '##  Label7 = Original Amount    ##
        Label8.Text = IncAmount                     '##  Label8 = Inctreased Amount ##

    End Sub

​

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

        TextBox1.Text = ""
        TextBox2.Text = ""

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""
        Label4.Text = ""
        Label5.Text = ""
        Label6.Text = ""
        Label7.Text = ""
        Label8.Text = ""

    End Sub

​

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

        Form9.Show()
        Me.Hide()

    End Sub

​

End Class