DECLARE SUB Spin

CREATE Form AS QFORM
    Caption = "Spin Control"
    Width = 308
    Height = 207
    Center
    CREATE ScrollBar AS QSCROLLBAR
        Kind = 1
        Left = 156
        Top = 50
        Width = 17
        Height = 25
        Min = 0
        Max = 65500
        Position = 32750
        OnChange = Spin
    END CREATE
    CREATE Panel AS QPANEL
        Caption = "0"
        Left = 123
        Top = 46
        Width = 33
        Height = 33
    END CREATE
    ShowModal
END CREATE

SUB Spin
    Panel.Caption = STR$(32750 - ScrollBar.Position)
END SUB