2001-11-24 09:01

     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

2001-11-24 09:01