New TextLabel (gb.qt4)

Dim hTextLabel As TextLabel
hTextLabel = New TextLabel ( Parent As Container ) [ As "EventName" ]

Create a new TextLabel