New UserControl (gb.qt4)

Dim hUserControl As UserControl
hUserControl = New UserControl ( Parent As Container ) [ As "EventName" ]

Crea una nuova barra di avanzamento.