Public Class TablesTemp Inherits System.Collections.Specialized.NameObjectCollectionBase Public Overloads Sub Add(ByVal Table As Table) BaseAdd(Table.Name, Table) End Sub Default Public Overloads ReadOnly Property Item(ByVal Title As String) As Table Get Return CType(BaseGet(Title), Table) End Get End Property Default Public Overloads ReadOnly Property Item(ByVal Index As Integer) As Table Get Return CType(BaseGet(Index), Table) End Get End Property ' Removes an entry with the specified key from the collection Public Sub Remove(ByVal tcKey As String) BaseRemove(tcKey) End Sub ' Removes an entry in the specified index from the collection Public Sub Remove(ByVal tnIndex As Integer) BaseRemoveAt(tnIndex) End Sub ' Removes everything Public Sub Clear() BaseClear() End Sub End ClassThen, I tried:
oApp.Tables = oApp.TablesTempThis does not work as the designer is complaining: