List/choose component properties

[FRFR1426]

How can I list/choose the component properties which appears in the Component properties tab? I've found how for other tabs, but I don't know how to do for this tab:

Public Sub DumpColumns()
    Dim symbb  As McadSymbolBBMgr
    Set symbb = ThisDrawing.Application.GetInterfaceObject("SymBBAuto.McadSymbolBBMgr")
    
    Dim stdMgr As McadStandardMgr
    Set stdMgr = symbb.StandardMgr
    
    Dim bomMgr As IMcadBOMMgr4
    Set bomMgr = symbb.bomMgr
    
    Dim i As Integer
    Dim col As IMcadColumnDefinition2
    
    Dim BOMStd As IMcadBOMStandard2
    Set BOMStd = stdMgr.CurrentStandard.BOMStandard
    
    Debug.Print "Component Properties"
    Debug.Print "--"
    ' ?
    
    Debug.Print
    Debug.Print "BOM"
    Debug.Print "--"
    For Each col In BOMStd.Columns
        If col.IsVisible Then
            Debug.Print col.Name
        End If
    Next col
    
    Debug.Print
    Debug.Print "Parts List"
    Debug.Print "--"
    For Each colIdx In BOMStd.PartListStandard.ColumnList
        Set col = BOMStd.GetColumn(Index:=colIdx)
        Debug.Print col.Name
    Next colIdx
    
    Debug.Print
    Debug.Print "Balloon"
    Debug.Print "--"
    For Each colIdx In BOMStd.BalloonStandard.ColumnList
        Set col = BOMStd.GetColumn(Index:=colIdx)
        Debug.Print col.Name
    Next colIdx
End Sub