Visual Basic

Sub update_available_room()
        Try
        lvroom.BeginUpdate()
        For Each L As ListViewItem In lvroom.Items
            Dim mycommand As MySqlCommand = conn.open.CreateCommand
            Dim query1 = "SELECT room.*,roomtype.* FROM room, roomtype WHERE room.RoomType=roomtype.RoomType AND RoomNo='" & L.ImageKey & "'"
            mycommand.CommandText = query1
            Dim baca1 As MySqlDataReader = mycommand.ExecuteReader
            If baca1.Read() Then
                Dim NoKamar As String = baca1("RoomNo")
                Dim str As String
                If Len(NoKamar) = 1 Then
                    str = "00" & NoKamar
                ElseIf Len(NoKamar) = 2 Then
                    str = "0" & NoKamar
                Else
                    str = NoKamar
                End If
                If baca1("Available") = True And baca1("Status") = False Then

                    L.ImageList.Images.RemoveByKey(L.ImageKey)
                    Dim newbitmap As Bitmap = My.Resources.bulat_hijau
                    Dim g As Graphics
                    g = Graphics.FromImage(newbitmap)
                    g.DrawString(str, New Font("Arial", 65, FontStyle.Bold), New SolidBrush(Color.Yellow), New Point(85, 50))
                    g.DrawString("______________________", New Font("Arial", 65, FontStyle.Bold), New SolidBrush(Color.White), New Point(0, 80))
                    g.DrawString(baca1("Singkatan"), New Font("Arial", 65, FontStyle.Bold), New SolidBrush(Color.White), New Point(82, 170))
                    L.Text = "EMPTY"
                    L.Font = New Font("Arial", 12, FontStyle.Bold)
                    L.ImageList.Images.Add(NoKamar, newbitmap)

                ElseIf baca1("Available") = False And baca1("Status") = False Then

                    L.ImageList.Images.RemoveByKey(L.ImageKey)
                    Dim newbitmap As Bitmap = My.Resources.bulat_purple
                    Dim g As Graphics
                    g = Graphics.FromImage(newbitmap)
                    g.DrawString(str, New Font("Arial", 65, FontStyle.Bold), New SolidBrush(Color.Yellow), New Point(85, 50))
                    g.DrawString("______________________", New Font("Arial", 65, FontStyle.Bold), New SolidBrush(Color.White), New Point(0, 80))
                    g.DrawString(baca1("Singkatan"), New Font("Arial", 65, FontStyle.Bold), New SolidBrush(Color.White), New Point(82, 170))
                    L.Text = "N/A"
                    L.Font = New Font("Arial", 12, FontStyle.Bold)
                    L.ImageList.Images.Add(NoKamar, newbitmap)

                End If
            End If
                baca1.Close()
            lvroom.Refresh()
        Next
        conn.close()
        lvroom.EndUpdate()
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
        conn.close()
        End Try
    End Sub

but I am getting err:

Index was out of range. Must be non-negative and less than the size of the collection. Parameter name: index

Public Class LinerTypesCollection
        Inherits System.Collections.ObjectModel.ObservableCollection(Of String)

        Public Sub New(ByVal IsMetric As Boolean)

           ' Do stuff
           
        End Sub
   End Class

Namespace Base.Controls.Panels
    Partial Public Class StartPanel
        Public Sub New (ByVal bool as Boolean, Optional ByVal bool2 as Boolean = false)

            ' This works.
            cmbBox.ItemsSource = New LinerTypesCollection(False)
        End Sub
    End Class
End Namespace

Namespace Base.Utilities
    Public Class ConnectionOption
        Public Sub New (ByVal IsMetric as Boolean)

            ' This does not work. I cannot get IntelliSense to acknowledge that LinerTypesCollection exists.
            cmbBox.ItemsSource = New LinerTypesCollection(False)
        End Sub
    End Class
End Namespace