Calculation of Amount

Private Sub Command1_Click()
Dim T As Integer
Dim R As Double
Dim AMT As Currency
Dim Prin As Currency
List1.Clear
T = 10
Prin = Text2.Text
R = Text1.Text / 100
List1.AddItem "YEAR" & vbTab & "AMOUNT"
For T = 1 To 10
AMT = Prin * (1 + R) ^ T
List1.AddItem Format$(T, "@@@@") & vbTab & Format$(AMT, "currency")
Next T
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = "Interest Rate (%)"
Label2.Caption = "Enter Principal"
List1.Clear
Command1.Caption = "Calculate"
Command2.Caption = "EXIT"
Text1.Text = ""
Text2.Text = ""
List1.Font = 24

End Sub