EnableExplicit

Define EventID
Define Quit
Define Tab

If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  StringGadget(1,10,10,480,20,"Test 1"+#TAB$+"Test 2",#ES_MULTILINE)
  TrackBarGadget(2,10,40,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