Сложный вопрос по UserControl-ам - VB

Формулировка задачи:

Есть такая чудесная библиотека - TLBINF32.DLL, с помощью которой можно получить список всех свойств заданного элемента управления. Например:

Public Function CollectProperties(Target As Object) As Collection
   Dim oTLB As InterfaceInfo
   Dim sMemberName As String
   Dim sInvokeKind As String
   Dim i As Integer
   Dim kFuncReturn As Collection
   Dim o As clsMember
   
   Set kFuncReturn = New Collection
   Set oTLB = TLI.InterfaceInfoFromObject(Target)
   For i = 1 To oTLB.Members.Count
      sInvokeKind = ReturnInvokeKind(oTLB.Members(i).InvokeKind)
      If InStr(1, sInvokeKind, 'INVOKE_PROPERTY') > 0 Then
         sMemberName = oTLB.Members(i)
         If Left$(sMemberName, 1) <> '_' Then
            Set o = New clsMember
            o.MemberName = sMemberName
            o.MemberType = sInvokeKind
            kFuncReturn.Add o
         End If
      End If
   Next i
   Set CollectProperties = kFuncReturn
End Function

И пример вызова:

Dim propList As Collection
Dim propMember As clsMember
Dim ct As Control
 
Set ct = Me.Text1  ' << просто для примера
' получаем список свойств контрола ct в коллекцию propList:
Set propList = CollectProperties(ct)
' заполняем комбобокс cboProps свойствами контрола ct:
For Each propMember In propList
    cboProps.AddItem propMember.MemberName
Next propMember

Примечание: класс clsMember описан так:

Public MemberName As String
Public MemberType As String

В реальной моей ситуации контрол ct получается не прямым присваиванием (хотя и так тоже можно, конечно), а из перебора всех элементов Me.Controls. Таким образом можно составить список свойств для каждого контрола формы. Этот список получается полным - в нём будут действительно все свойства контрола, а не только те, что видны в окошке Property Browser. Например, для текстбокса мы увидим не только свойство Font, но и свойство FontBold, для комбобокса - не только List, но и ListIndex, и так далее. Итак, всё чудесно. А теперь усложняем ситуацию. Допустим, что приведённый выше 'Пример вызова' запускается не из формы, а из кода некоего нашего UserControl-а, размещённого на этой форме. Естественно, перебирать коллекцию Me.Controls уже нельзя; вместо неё нужно перебирать коллекцию ParentControls. И вот в этом случае в коллекцию propList попадут, увы, НЕ ВСЕ свойства контрола ct, - а именно, попадут лишь те, что видны в окошке Property Browser. Например, для комбобокса в коллекцию не попадёт свойство ListIndex, и т.д. Такое впечатление, что с точки зрения библиотеки 'TypeLib Information' (TLBINF32.DLL) свойства контролов имеют как бы 'ограниченную область видимости': с родительской формы они видны все, из UserControl-а (в моём случае - с его Property Page) - лишь их часть. Вопрос: как это можно обойти? Приходит в голову следующее: В коде property-странички UserControl-а получаем в переменную ct (объявленную As Control) очередной контрол с родительской формы (т.е. через коллекцию ParentControl). Динамически создаём на property-страничке контрол того же типа, и вот его уже и 'скармливаем' функции CollectProperties. После заполнения коллекции propList временный контрол со странички удаляем. Вроде просто, только вот непонятно, как создать контрол 'того же типа', что и 'сидящий' внутри переменной ct. Может, есть и другие решения?! PS: Список свойств нужно получать именно из UserControl-а! Т.е. 'на лету'. Вариант 'получить их в коде формы, куда-нибудь сохранить, а потом оттуда закачать в код UserControl-а' - не подходит.

Решение задачи: «Сложный вопрос по UserControl-ам»

textual
                            Листинг программы 
                        

                            Friend Property Get parControls() As ParentControls
    Set parControls = ParentControls
End Property
                        