Мы пытаемся ограничить количество людей, которые могут выбрать определенный день в нашей программе

---

Таким образом, наша программа-это планировщик встреч в парикмахерской, единственная проблема заключается в том, что мы не можем ограничить количество людей, которые могут назначить встречу в определенный день. Например, миллион человек могут попросить о встрече на 12/4/2016. Мы хотим ограничить это число до 15 или около того. Наш профессор сказал нам использовать оператор If, но нам не повезло с ним.

Что я уже пробовал:

Public Class appointmentform
    
    Private Sub MonthCalendar1_DateSelected(sender As Object, e As DateRangeEventArgs) Handles MonthCalendar1.DateSelected

        Dim MonthCalendar1 As Integer
        If MonthCalendar1 > 5 Then

            MessageBox.Show("This day is full, please select another day to come in.")
        End If
        datetxt.Text = MonthCalendar1.SelectionEnd.ToShortDateString() 'displays date selected into textbox
    End Sub



    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnPreview.Click
        '"If" statements that cover the haircut options the customer may choose

        lstOutput.Items.Clear()

        lstOutput.Items.Add(nametxt.Text)

        Dim totalreceipt As Double

        If haircut.Checked Then
            totalreceipt += lstOutput.Items.Add(15.ToString("C"))
        End If

        If specialcut.Checked Then
            totalreceipt += lstOutput.Items.Add(20.ToString("C"))
        End If

        If kidcut.Checked Then
            totalreceipt += lstOutput.Items.Add(12.ToString("C"))
        End If

        If lineup.Checked Then
            totalreceipt += lstOutput.Items.Add(7.ToString("C"))
        End If

        If design.Checked Then
            totalreceipt += lstOutput.Items.Add(5.ToString("C"))
        End If

        If razorshave.Checked Then
            totalreceipt += lstOutput.Items.Add(15.ToString("C"))
        End If

        If seniorcut.Checked Then
            totalreceipt += lstOutput.Items.Add(12.ToString("C"))
        End If

        If eyebrow.Checked Then
            totalreceipt += lstOutput.Items.Add(10.ToString("C"))
        End If

        If diamondkut.Checked Then
            totalreceipt += lstOutput.Items.Add(45.ToString("C"))
        End If

        lstOutput.Items.Add(datetxt.Text)


    End Sub




    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles viewfinal.Click
        'Displays message box to customer for confirmation
        MessageBox.Show("See you soon " & nametxt.Text & "!" & " Thank you for choosing Thig's Diamond Kutz, your appointment is set for " & datetxt.Text & ".", "Appointment Confirmation")

        'Stores data in text file
        Dim file As System.IO.StreamWriter
        file = My.Computer.FileSystem.OpenTextFileWriter("appointmentstorage.text", True)
        file.WriteLine(lstOutput)
        file.Close()

    End Sub

    Private Sub appointmentform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'users are unable to access dates to have already passed
        MonthCalendar1.MinDate = Date.Today

    End Sub
End Class

---