Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '------EXIT BUTTON - CLOSE THE FORM
        Me.Close()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        '-------TIP BUTTON - CALCULATE THE TIP
        'Tip is 15%, but raise to $1 minimum.

        'INIT:
        Dim bill As Double    'amount of bill (from textbox1)
        Dim tip As Double     'tip amount.

        Dim pct As Double = 0.15    'percentage rate for tip.
        Dim mintip As Double = 1.0      'minimum tip.

        'INPUT: bill
        bill = CDbl(Me.TextBox1.Text)

        Me.ListBox1.Items.Add("the bill was: " & FormatCurrency(bill))

        'PROCESS: calculate 15%. check if < $1
        tip = pct * bill
        If (tip < mintip) Then
            tip = mintip
        End If


        'OUTPUT: msg & #
        Me.ListBox1.Items.Add("the tip should be: " & FormatCurrency(tip))
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        '----CLEAR LISTBOX OF ALL CONTENTS.


    End Sub
End Class