2002-07-08 18:49

     DECLARE FUNCTION LoadCursorFromFile LIB "USER32" _
      ALIAS "LoadCursorFromFileA" _
      (CursorFileName AS STRING) AS LONG


     DECLARE SUB ChangeCur

     CREATE CurTimer AS QTIMER
      Interval = 100
      OnTimer = ChangeCur
     END CREATE

     CREATE Form AS QFORM
      CAPTION = "Animated cursor"
      Center
     END CREATE

     Screen.Cursors(1) = LoadCursorFromFile("d:\rapid-q\flower text.cur")
     Screen.Cursors(2) = LoadCursorFromFile("d:\rapid-q\flower.cur")

     SUB ChangeCur
      DIM n AS BYTE
      INC n
      Form.Cursor = n
      IF n = 2 THEN n = 0
     END SUB

     Form.SHOWMODAL

2002-07-08 18:49