Private Shared pItems As New Generic.Dictionary(Of MyObject, _
     MyObjectCollection)
 
   Public Shared ReadOnly Property Items(ByVal compControl As Settings) As _
     MyObjectCollection
      Get
         If Not pItems.ContainsKey(compControl) Then
            pItems.Add(compControl, New MyObjectCollection)
         End If
 
         Return pItems(compControl)
      End Get
   End Property