cbBlock sub

    Public Sub cbBlock_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbBlock.SelectedIndexChanged
        Select Case cbBlock.Text
            Case "H Block"
                cbRoom.Items.Clear()
                Dim listOfRoomsInBlock As New List(Of Integer)
                listOfRoomsInBlock = sqlSelect("ID", "cbRooms", "H_Block=True")
                For x = 0 To listOfRoomsInBlock.Count - 1
                    cbRoom.Items.Add(listOfRoomsInBlock(x))
                Next
            Case "Tech Block"
                cbRoom.Items.Clear()
                Dim listOfRoomsInBlock As New List(Of Integer)
                listOfRoomsInBlock = sqlSelect("ID", "cbRooms", "T_Block=True")
                For x = 0 To listOfRoomsInBlock.Count - 1
                    cbRoom.Items.Add(listOfRoomsInBlock(x))
                Next

        End Select
    End Sub