Function GetTrackBarPos(ByVal gadget As long) As Integer
Позволяет получить позицию TrackBarGadget
gadget - номер гаджета
Windows , Linux
#Include "window9.bi"
OpenWindow("",10,10,300,300)
ButtonGadget(1,20,20,60,25,"End")
TrackBarGadget(2,20,70,100,40,0,10)
TextGadget(3,200,20,30,25)
Do
   var event=WaitEvent()
   If event=EventGadget Then
      Select case EventNumber
         Case 2
            SetGadgetText(3,Str(GetTrackBarPos(2)))
         Case 1
            end
      End Select
   EndIf
Loop

Created with the Personal Edition of HelpNDoc: Free CHM Help documentation generator