; Autor : Flype
; Date  : 23/01/2007

If OpenWindow(0, 0, 0, 640, 100, "Test", #PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
 
  If CreateStatusBar(0, WindowID(0))
    AddStatusBarField(300)
    AddStatusBarField(50)
    AddStatusBarField(150)
    AddStatusBarField(150)
  EndIf
 
  If CreateGadgetList(WindowID(0))
    TrackBarGadget(0, 10, 20, 620, 40, 0, 100, #PB_TrackBar_Ticks)
  EndIf
 
  If CreateGadgetList(StatusBarID(0))
    ProgressBarGadget(1, 5, 5, 290, 12, 0, 100, #PB_ProgressBar_Smooth)
  EndIf
 
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
      Case #PB_Event_Gadget
        If EventGadget() = 0
          SetGadgetState(1, GetGadgetState(0))
          StatusBarText(0, 1, Str(GetGadgetState(0)) + "%", #PB_StatusBar_Center)
        EndIf
    EndSelect
  ForEver
 
EndIf