This may be a long shot but I'll ask here first anyway.

Is there a way to programmatically navigate through the properties and collections on a COM object?  We have some objects we've written that represent customers in a database.  I'd like to build an XML representation of these objects once all the data has been populated, but it's a pain in the ass to have to build it all by hand, plus if we add new stuff in the future, we'd have to also make sure the XML contains the new stuff.  If there were a way to programmatically navigate through a COM object, it would handle all that for us.

So, I'd be looking for something like this:

For each Item in Customer.Properties
   code for Item.Name & Item.Value
Next

Does that make sense?

That's a possibility, though we do some business logic on the data after we get it from the database (formatting, generating URLs, etc).

Here's what it looks like when we use this object.

Dim oCustomer as Customer, Employee as Customer.Employee

Set oCustomer = New Customer

oCustomer.LoadCustomer(123)

(At this point, the data from the database is loaded into the customer object)

Debug.Print Customer.CompanyName
Debug.Print Customer.Phone

(We also have collections)

For each Employee in Customer.Employees
  Debug.Print Employee.Name
  Debug.Print Employee.Email
Next

I'd like to be able to do the Customer.LoadCustomer, pass that through something which would let me parse the properties & collections, from which I could generate XML, such as (the formatting is going to suck):

Sorry, I don't have AIM, just ICQ and YIM.

Woot!  Found what I was looking for.  By referencing the TypeLib Information object (tlbinf32.dll), I'm able to programmatically browse an object.  Example:

   Dim oBrowse As TLI.TLIApplication, Customer As APPresentation.Customer
   Dim iInfo As TLI.InterfaceInfo, Member As TLI.MemberInfo

   
   Set oBrowse = New TLI.TLIApplication
   Set Customer = New APPresentation.Customer
   
   Set iInfo = oBrowse.InterfaceInfoFromObject(Customer)
   
   For Each Member In iInfo.Members
       Debug.Print Member.Name
   Next
   
   Set oBrowse = Nothing