Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Bexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bexit.Click
        Me.Close()
    End Sub

    Private Sub txtprice_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtPrice.TextChanged
       

    End Sub


    Private Sub Bcalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Bcalc.Click
        ' Calculate the tip for a meal

        Dim price As Double        ' Price of the meal.
        Dim tip As Double           ' Tip amount

        'INPUT:  Get the price of the meal
        price = Val(Me.txtPrice.Text)

        'PROCESS:  Calculate tip
        tip = (15.0 / 100) * price

        If tip > 1 Then
            tip = (15.0 / 100) * price
        ElseIf (tip <= 1) Then
            tip = 1


        End If


        'OUTPUT:  SHow tip amt
        Me.lblTip.Text = tip



    End Sub
End Class