Public Class MainForm
 
    Dim TotalChange As Double
 
 
    Private Sub xButtonExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xButtonExit.Click
        Me.Close()
 
    End Sub
 
    Private Sub xButtonClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xButtonClear.Click
        'clear all fields and focus back to amount owed
        Me.xAmountOwedText.Text = String.Empty
        Me.xAmountPaidText.Text = String.Empty
        Me.xDollarsCalc.Text = String.Empty
        Me.xQuartCalc.Text = String.Empty
        Me.xDimeCalc.Text = String.Empty
        Me.xNickCalc.Text = String.Empty
        Me.xPennyCalc.Text = String.Empty
 
        Me.xAmountOwedText.Focus()
 
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles xCalculateButton.Click
        Dim Dolla As Integer
        Dim Quart As Integer
 
        'calculate the total change and assign to the correct text boxes
        TotalChange = Val(Me.xAmountPaidText.Text) - Val(Me.xAmountOwedText.Text)
 
        Integer.TryParse(Me.xDollarsCalc.Text, Dolla)
        If Dolla >= 1 Then
            Dolla = Dolla / 1
        End If
 
        Integer.TryParse(Me.xQuartCalc.Text, Quart)
        If TotalChange > 0.25 Then
            Quart = Me.xDollarsCalc.Text / 0.25
        End If
 
        'display message, tax and name
        Me.xMessageLabel.Text = "The change owed to the customer is " & Format(TotalChange, "currency")
 
    End Sub
End Class