Public Class frmtip

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

    End Sub

    Private Sub btncompute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncompute.Click

        Dim money As Double
        Dim tip, check As String



        check = txtcheck.Text

        money = check * 0.15
        tip = money





        If tip < 0 Then
            txtresult.Text = "Cant have a Negative Bill"
        ElseIf tip <= 1 Then
            txtresult.Text = "The tip is " & FormatCurrency(1)

        ElseIf tip > 1 Then
            txtresult.Text = "The tip is " & FormatCurrency(tip)
        Else


            txtresult.Text = "Not a vaild bill amount"


        End If


    End Sub
End Class