Option Strict On
Public Class CalculationForm1Day

  Private Sub calculateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calculateButton.Click
    calculateButton.Focus()
    'Declare variables
    Dim presentValue As Decimal
    Dim interestRate As Double
    Dim periodsPerYear As Integer
    Dim numberOfYears As Integer
    Dim futureValue As String
    Integer.TryParse(presentValueTextBox.Text, CInt(presentValue))
    Integer.TryParse(interestTextBox.Text, CInt(interestRate))
    Integer.TryParse(periodsTextBox.Text, periodsPerYear)
    Integer.TryParse(yearsTextBox.Text, numberOfYears)
    Integer.TryParse(futureValueLabel.Text, CInt(futureValue))
    futureValueLabel.Text = CStr((presentValue * ((1 + (interestRate / numberOfYears) ^ (periodsPerYear * numberOfYears)))))

    presentValueTextBox.Focus() 'Gives focus to present value textbox
  End Sub 'calculateButton_Click

  Private Sub textBox_TextChanged(ByVal sender As Object, ByVal e As  _
    System.EventArgs) Handles _
    presentValueTextBox.TextChanged, _
    interestTextBox.TextChanged, _
    periodsTextBox.TextChanged, _
    yearsTextBox.TextChanged
    'Clears future value result label when user input changes
    futureValueLabel.Text = String.Empty
  End Sub 'textBox_TextChanged



End Class