Code: Select all
EnableExplicit
Define.i a, event
If OpenWindow(0, 0, 0, 500, 250, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
PanelGadget(1, 10, 10, 480, 230)
For a = 1 To 5
AddGadgetItem(1, -1, "Panel Tab " + Str(a), 0, 0)
Next
CloseGadgetList()
SendMessage_(GadgetID(1), #TCM_SETCURSEL, 1, 0) ; Value of 1 selects tab 2
Repeat
event = WaitWindowEvent()
Until event = #PB_Event_CloseWindow
EndIf
TIA
Dave