Public Class Form1

    '//////////////CREATED BY ZEKI OZYILMAZ for CST112
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'User presses button to determine tip based on price of check

        'Step0. Declarations
        Dim x As Double
        Dim tip As Double
        '/Step1. Input
        x = Val(Me.TextBox1.Text)
        '//Step2. Process
        tip = x * 0.15
        If tip = 0 Then
            Me.ListBox1.Items.Add("You don't tip the server anything")
        ElseIf tip < 1 Then
            tip = 1
        End If
        '///Step3. Output
        If tip = 1 Then
            Me.ListBox1.Items.Add("You should tip the server one dollar")
        ElseIf tip > 1 Then
            Me.ListBox1.Items.Add("You should tip the server " & tip & " dollars")
        Else

        End If
    End Sub
End Class