Public Class CarRentalCalculator
    'delcare constants
    Const PerMileRate As Decimal = 0.12D
    Const DailyRate As Integer = 15D



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcButton.Click
        'declare variables
        Dim StartMileage As Integer, EndMileage, DaysUsed, TotalMiles
        Dim TotalCharge As Decimal


        'Convert input to values of variables

        Try

            StartMileage = Integer.Parse(StartMileageBox.Text)
            EndMileage = Integer.Parse(EndMileageBox.Text)
            DaysUsed = Integer.Parse(DaysUsedBox.Text)

        Catch ex As FormatException

            MessageBox.Show("Error in input.")

        End Try


        'Calculate totals
        TotalMiles = EndMileage - StartMileage
        TotalCharge = (DailyRate * DaysUsed) + (TotalMiles * PerMileRate)

        'Display Totals

        MilesDrivenBox.Text = TotalMiles.ToString
        TotalChargeBox.Text = TotalCharge.ToString

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click

        'print form
        PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview
        PrintForm1.Print()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click

        'clear fields
        NameBox.Clear()
        AdressBox.Clear()
        StateBox.Clear()
        CityBox.Clear()
        ZipBox.Clear()
        StartMileageBox.Clear()
        EndMileageBox.Clear()
        DaysUsedBox.Clear()
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click
        Me.Close()

    End Sub

End Class