For Each vbc In vbp.VBComponents
    frmAddIn.List1.AddItem vbc.Name
    Set vbcm = vbp.VBComponents(vbc.Name).CodeModule
    For Each vbm In vbcm.Members
        strLine = "   " & vbm.Name
        Select Case vbm.Type
           Case vbext_mt_Method
              strLine = strLine & ", method"
           Case vbext_mt_Property
              strLine = strLine & ", property"
           Case vbext_mt_Variable
              strLine = strLine & ", variable"
           Case vbext_mt_Event
              strLine = strLine & ", event"
           Case vbext_mt_Enum
              strLine = strLine & ", enumerated value"
           Case vbext_mt_Const
              strLine = strLine & ", constant"
           Case vbext_mt_EventSink
              strLine = strLine & ", event sink"
        End Select
        frmAddIn.List1.AddItem strLine
    Next
Next