New Control (gb.qt4)

Dim hControl As Control
hControl = New Control ( ) [ As "EventName" ]