EnableExplicit Define EventID Define Quit Define Tab If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) EditorGadget(1,10,10,480,200,0) AddGadgetItem(1,-1,"Test 1"+#TAB$+"Test 2",0,0) TrackBarGadget(2,10,220,480,20,1,100,0) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 2 Tab=8 Tab*GetGadgetState(2) SendMessage_(GadgetID(1), #EM_SETTABSTOPS,1,@Tab) EndSelect EndIf If EventID=#PB_Event_CloseWindow Quit=1 EndIf Until Quit=1 EndIf