This control lets you have a look at the structure of any OLE/COM object. This can be an ActiveX dll, an OCX or an ActiveX EXE. It's even possible to read out the entire object model of any MS Office application. All functionality is located in just one user control. It's easy to embed that in any application. This control is also the base on which ComDoc is based on.

This code is based on the article : MSDN Magazine, December 2000 by Jason Fisher

Click here to download the complete source code.

This control adds a verry nice help function to your application. There is even support for getting the help text out of a chm help file. Just look how it works when you add one of my DLLs to the object browser (click on various nodes for getting the help).

Click here to download the complete source code.

    ObjectBrowser1.settings = OB_GroupMemberType + _
        OB_EnumInRoot + OB_ExtendInnerObjects + _
        OB_ExtendParent + OB_RemoveReferedObjects
    ObjectBrowser1.AddFromFile("DBPublisher.dll")
    ObjectBrowser1.AddFromFile ("vb6.olb")
    ' Excel is to big for extending inner objects
    ObjectBrowser1.settings = 0
    ObjectBrowser1.AddFromFile ("Excel.olb")

    With ObjectBrowser1.Nodes
        Set nodx = .Add(, , "DBP", _
            "DBP", 10, 10)
        Set nodx = .Add("DBP", tvwChild, _
            "DBP.Application", "Application", 1, 1)
        Set nodx = .Add("DBP", tvwChild, _
            "DBP.Screen", "Screen", 1, 1)
        ObjectBrowser1.AddForeignMembersToNode _
            nodx, "vb6.olb", "Screen"
        Set nodx = .Add("DBP", tvwChild, _
            "DBP.Script", "Script", 13, 13)
        Set nodx = .Add("DBP.Application", tvwChild, _
            "DBP.Application.Method", "Methods", 7, 7)
        nodx.Sorted = True
        nodx.EnsureVisible
        .Add "DBP.Application.Method", tvwChild, "", _
            "Show", 7, 7
        .Add "DBP.Application.Method", tvwChild, "", _
            "Hide", 7, 7
    End With

Private Sub ObjectBrowser1_NodeSelect(strNode As String, _strCall As String, strDescription As String, strHelp As String, strHelpFile As String, Node As MSComctlLib.Node, strHelpPage As String)

Dim tmpPage() As String
Dim strType As String
Dim strPage As String

    frmQuickTip.QuickTip1.WaitCount = 2
    frmQuickTip.QuickTip1.HelpType = "ObjectBrowser"
    frmQuickTip.QuickTip1.QuickTipKey = strCall

    ' The descriptin and helptekst from the type library
    If Len(strDescription) > 0 Then
        If Len(strHelp) > 0 Then
            frmQuickTip.QuickTip1.HelpText = strDescription & _
            "<BR><BR>" & strHelp
        Else
            frmQuickTip.QuickTip1.HelpText = strDescription
        End If
    Else
        frmQuickTip.QuickTip1.HelpText = strHelp
    End If

    ' If this help page exist then we will use it.
    frmQuickTip.QuickTip1.HelpFile = strHelpPage

End Sub