Public Class Form6

​

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

        Form1.Show()
        Me.Hide()

    End Sub

​

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

        'Increment Percentages
        Dim Value, Percent, DecPercent, IncValue As Single
        Dim Whole = 100                'used to Calculate Decimal
        Dim PerWhole = 1               '1 = 1 whole of Number added to Decimal Number
        Dim N As String = "n2"

​

        Value = Val(TextBox1.Text)
        Percent = Val(TextBox2.Text) 

        DecPercent = (Percent / Whole)                          'Percent to Decimal Value
        IncValue = ((Value) * (PerWhole + DecPercent))     'Calculate Number using Per% Increase

        Label1.Text = Value.ToString(N)                            'Label1 = Initial Value
        Label2.Text = (PerWhole + DecPercent).ToString(N) 'Label2 = Calculated Per% Increase
        Label3.Text = IncValue.ToString(N)                        'Label3 = Increased %age Value 

​

    End Sub

​

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

​

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

        Label1.Text = ""
        Label2.Text = ""
        Label3.Text = ""

​

    End Sub

End Class