EnableExplicit Define EventID #TBS_TOOLTIPS = $100 If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) TrackBarGadget(1,10,10,WindowWidth(0)-20,50,0,100,#TBS_TOOLTIPS) Repeat EventID=WaitWindowEvent() If EventID=#PB_Event_Gadget Select EventGadget() Case 1 GadgetToolTip(1, Str(GetGadgetState(1))) EndSelect EndIf If EventID = #PB_Event_CloseWindow End EndIf ForEver EndIf