New ToolButton (gb.qt4)

Dim hToolButton As ToolButton
hToolButton = New ToolButton ( Parent As Container ) [ As "EventName" ]

Crea una nuova barra di pulsanti.