Public Class Test
  Private myObjects As New Dictionary(Of Integer, Object)()
End Class

Default Public Property Item(ByVal key As Integer) As Object
    Get (ByVal key As Integer)
      Return myObjects.Item(key)
    End Get
    Set(ByVal key As Integer, ByVal value As Object)
      myObjects.Item(x) = value
    End Set
  End Property

Default Public Property Item(ByVal key As Integer) As Object
    Get
      Return myObjects.Item(key)
    End Get
    Set(ByVal value As Object)
      myObjects.Item(key) = value
    End Set
  End Property