​

Public Class Form18

​

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

        Dim Amount, Principle, Rate, Ratepercent, Numintyr, Timeperyear As Single
        Dim N As String = "N3"

​

        Principle = TextBox1.Text

        Rate = TextBox2.Text
        Ratepercent = Rate / 100 'Convert Rate% to Decimal 

        Numintyr = TextBox3.Text
        Timeperyear = TextBox4.Text

        Amount = ((Principle * ((1 + (Ratepercent / Numintyr)) ^ (Numintyr * Timeperyear))))

        Label1.Text = Amount.ToString(N)

​

    End Sub

​

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

        Form17.Show()
        Me.Hide()

    End Sub

​

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

​

        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        Label1.Text = ""

​

    End Sub

End Class