Private Sub Form_Load()
Dim appCD
Dim cmdBar As VGCore.CommandBar
Dim ctlIdx As Long
Dim ctl As VGCore.Control
Set appCD = GetObject("", "CorelDraw.Application")
For Each cmdBar In appCD.CommandBars
If cmdBar.Name = "Transform" Then
For ctlIdx = 0 To cmdBar.Controls.Count - 1
Set ctl = cmdBar.Controls(ctlIdx + 1)
Debug.Print
Debug.Print "Caption: "; ctl.Caption
Debug.Print "DescriptionText: "; ctl.DescriptionText
Debug.Print "ID: "; ctl.ID
Debug.Print "Parameter: "; ctl.Parameter
Debug.Print "Tag: "; ctl.Tag
Debug.Print "ToolTipText: "; ctl.ToolTipText
Debug.Print "Visible: "; ctl.Visible
Debug.Print
Next
End If
Next
End Sub