Reflection of a COM object

[davemc759]

I have a complex Com object that I want to interrogate to discover the
prperties of to allow me to save/restore it's state between instances.
I have been able to accomplish this with the top level items using the
following

Private Sub InterrogateBlob(ByVal blob As Object)
Dim blobfeaturelist As
Matrox.ActiveMIL.BlobAnalysis.BlobFeatureListClass
blobfeaturelist = blob.FeatureList
Dim instancemembers As MemberInfo() =
blobfeaturelist.GetType().GetMembers()
For Each member As MemberInfo In instancemembers
If member.MemberType = MemberTypes.Property Then
Debug.WriteLine(member.Name + " is a Property")
Dim pri As PropertyInfo = CType(member, PropertyInfo)
If pri.PropertyType.IsPrimitive Then
If member.Name <> "MilID" Then
Dim ob As Object =
blobfeaturelist.GetType().GetMember(member.Name)
Dim v As Boolean =
Convert.ToBoolean(RegKey3.GetValue(member.Name))
pri.SetValue(blobfeaturelist, v, Nothing)
End If
Else 'we need to figure out how to drill into a type that is
not primative
Dim priType As Type = pri.PropertyType
Dim priob As MemberInfo() =
instancemembers.GetType().GetMember(pri.PropertyTy pe.ToString +
"Class")
Debug.WriteLine(priType.ToString())
Dim primembers As MemberInfo() = priType.GetType.GetMembers()
For Each primember As MemberInfo In primembers
If primember.MemberType = MemberTypes.Property Then
Debug.WriteLine(" " + primember.Name + " is a
Property")
End If
Next
End If
End If
Next
End Sub

but as noted in the code I haven't been able to figure out how to work
with the properties that are not value types. How do I get a handle to
the sub types to read/restore their values also?