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 txtDisk.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 disks As Double        ' Amount of disks
        Dim price As Double           ' cost of disks

        'INPUT:  figure out amount of disks
        disks = Val(Me.txtDisk.Text)

        'PROCESS:  Calculate price


        If disks >= 100 Then
            price = 0.2 * disks
        ElseIf disks <= 99 Then
            price = disks * 0.25


        End If


        'OUTPUT:  Show price
        Me.lblTip.Text = FormatCurrency(price)



    End Sub
End Class