Imports System.IO

Public Class carReservation

    
    Function NumberOfReservations()
        Dim counter As Integer = 0
        Dim day As Date
        Dim input As StreamReader = New StreamReader("reservations.txt")
        Dim line As String = input.ReadLine

        Do While input.Peek > -1
            day = Convert.ToDateTime(line)
            line = input.ReadLine

            If MonthCalendar.SelectionStart = day Then
                counter += 1

            End If
        Loop

        Return counter

        input.Close()



    End Function

    Sub CheckReservations()
        Dim counter As Integer
        Dim name As String = Val(NameTextbox.Text)
        Dim day As Date








        If counter < 4 Then
            Dim output As StreamWriter = New StreamWriter("reservations.txt", True)


            output.WriteLine(day)
            output.WriteLine(name)


            MessageBox.Show("You Have Reserved a Car")



            


        Else
            MessageBox.Show("Sorry, No Reservations Available Today")
            reserveButton.Enabled = False


        End If


        Return









    End Sub

    Private Sub reserveButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles reserveButton.Click
        CheckReservations()
        NameTextbox.Clear()

        NameTextbox.Focus()

    End Sub