Как перебрать свойства объекта?

dim prp as Property 'object of SomeObject Library
for each prp in SomeObject.Properties
  prp.
  ...
next prp

Private Sub Command1_Click()
Dim obj As Object
Dim appTLI As TLI.TLIApplication
Dim inte As InterfaceInfo
 
    Me.List1.Clear
 
    Set appTLI = New TLIApplication
 
    Set obj = CreateObject(Me.Text1.Text)
 
    Set inte = appTLI.InterfaceInfoFromObject(obj)
 
    n% = inte.Members.Count
    
    For i% = 1 To n%
    
        StrOut$ = inte.Members(i%).Name
        
        '::: Тип вызова
        
        kk% = inte.Members(i%).InvokeKind
        
        Select Case kk%
               Case 1
                    StrOut$ = StrOut$ + " Метод "
               Case 2
                    StrOut$ = StrOut$ + " Свойство (GET) "
               Case 4
                    StrOut$ = StrOut$ + " Свойство (LET) "
               Case Else
                    StrOut$ = StrOut$ + " ? " + CStr(kk%) + " # "
        End Select
        
        '::: Возвращаемое значение
        
        vv& = inte.Members(i%).ReturnType.VarType
        
        StrOut$ = StrOut$ + " Возвр: " + getType(vv&)
        
        Me.List1.AddItem StrOut$
        
        '::: Получение информации о параметрах
        
        k% = inte.Members(i%).Parameters.Count ' число парамеров
 
        For j% = 1 To k%
        
            'Debug.Print ">>>> "; inte.Members(i%).Parameters(j%).Name; " ";
        
            StrOut$ = " Пар. " + CStr(j%) + " " + inte.Members(i%).Parameters(j%).Name + " "
        
            vv& = inte.Members(i%).Parameters(j%).VarTypeInfo.VarType
        
            StrOut$ = StrOut$ + getType(vv&)
            
            Me.List1.AddItem StrOut$
        
        Next j%
 
        Me.List1.AddItem ""
        Me.List1.AddItem "--------------------------------"
        Me.List1.AddItem ""
 
    Next i%
 
End Sub
 
Private Function getType(v As Long) As String
 
        Select Case v&
        
               Case 0
        
                    getType = " ????"
                   
               Case 1
        
                    getType = " NULL"
        
               Case 2
               
                    getType = " INTEGER"
               
               Case 3
               
                    getType = " LONG"
               
               Case 4
               
                    getType = " REAL"
                    
               Case 5
               
                    getType = " DOUBLE"
               
               Case 8
               
                    getType = " STRING"
                 
               Case 11
               
                    getType = " BOOL"
                    
               Case 12
               
                    getType = " VARIANT"
                 
               Case 19
               
                    getType = " OLECOLOR"
                    
               Case 24
               
                    getType = " VOID"
                 
               Case Else
               
                    getType = " неизвестный тип " + CStr(vv&)
        
        End Select
 
End Function
 
Private Sub Command2_Click()
        
        End
 
End Sub
 
Private Sub Command3_Click()
 
        Me.List1.Clear
 
End Sub
End Sub
 
Private Sub Command3_Click()
 
        Me.List1.Clear
 
End Sub