Public Class frmResort

    Structure resortStructure
        Dim customerName As String
        Dim phoneNumber As String
        Dim checkInDate As Date
        Dim daysToStay As Integer
        Dim numberOfAdults As Integer
        Dim numberOfKids As Integer
        Dim mealPlan As Char
        Dim memberLetter As String
    End Structure

    Dim guestlist(4) As resortStructure

    Private Sub frmResort_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim sr As IO.StreamReader = IO.File.OpenText("RESORT.TXT")
        For i As Integer = 0 To 4
            guestlist(i).customerName = sr.ReadLine
            guestlist(i).phoneNumber = sr.ReadLine
            guestlist(i).checkInDate = CDate(sr.ReadLine)
            guestlist(i).daysToStay = CInt(sr.ReadLine)
            guestlist(i).numberOfAdults = CInt(sr.ReadLine)
            guestlist(i).numberOfKids = CInt(sr.ReadLine)
            guestlist(i).mealPlan = CChar(sr.ReadLine)
            guestlist(i).memberLetter = sr.ReadLine
        Next
        sr.Close()
        For i As Integer = 0 To 4
            cmbGuestSearch.Items.Add(guestlist(i).customerName & "  " & guestlist(i).phoneNumber)
        Next

    End Sub

    Sub ProcessData()
        lstInvoice.Items.Clear()
    End Sub

    Sub ProcessInvoice()
        Dim fmtStr As String = "{0, -4} {1, 10}"
        For i As Integer = 0 To 4
            lstInvoice.Items.Add(guestlist(i).customerName)
            lstInvoice.Items.Add(guestlist(i).phoneNumber)
            lstInvoice.Items.Add(guestlist(i).checkInDate)
            lstInvoice.Items.Add(guestlist(i).daysToStay)
            lstInvoice.Items.Add(guestlist(i).numberOfAdults)
            lstInvoice.Items.Add(guestlist(i).numberOfKids)
            lstInvoice.Items.Add(guestlist(i).mealPlan)
            lstInvoice.Items.Add(guestlist(i).memberLetter)
        Next
    End Sub

    Private Sub btnPrepareInvoice_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPrepareInvoice.Click
        ProcessData()
        ProcessInvoice()
    End Sub

    Private Sub cmbGuestSearch_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbGuestSearch.SelectedIndexChanged
        For i As Integer = 0 To 4
            txtGuestName.Text = guestlist(i).customerName
        Next
    End Sub
End Class

Private Sub cmbGuestSearch_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmbGuestSearch.SelectedIndexChanged
        For i As Integer = 0 To 4
            txtGuestName.Text = guestlist(i).customerName
        Next
    End Sub