Mortgage Calculator

Public Class Form1
Private Loan_amount, Loan, Rate, Payment, i As Double
Private Years, Month As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Loan_amount = Double.Parse(TextBox1.Text)
Rate = Double.Parse(TextBox2.Text) / 100 / 12
Years = Integer.Parse(TextBox3.Text * 12)
Payment = Loan_amount * Rate / (1 - 1 / (Math.Pow(1 + Rate, Years)))
listbox1.Items.Add(String.Format("{0, 10:C2}", Payment))

End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles listbox1.SelectedIndexChanged
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'Dim i As Double
Loan = Double.Parse(TextBox1.Text)
Rate = Double.Parse(TextBox2.Text)
Years = Integer.Parse(TextBox3.Text) * 12
listbox1.Items.Add(String.Format("{0,-20} {1,20}", "Interest", "Payment"))
For i As Double = 5 To 14 Step 0.5
Rate = i / 12 / 100
Payment = Loan_amount * Rate / (1 - 1 / (Math.Pow(1 + Rate, Years)))
listbox1.Items.Add(String.Format("{0,-20:N1} {1,20:C2}", i, Payment))
Next
End Sub
End Class