CREATE TabControl AS QTABCONTROL
    AddTabs "Tab 1","Tab 2"
    Width = 289
    Height = 193
    'OnChange = TabChange
    'HotTrack = True
END CREATE


'SUB TabChange
'  SELECT CASE TabControl.TabIndex
'    CASE 0
'
'    CASE 1
'  END SELECT
'END SUB
 