2013-06-19 07:48

     DECLARE FUNCTION FlashWindow LIB "user32" ALIAS "FlashWindow"_
      (hwnd AS LONG, bInvert AS LONG) AS LONG
     DECLARE SUB Flash

     CREATE Form AS QFORM
      Center
      CREATE Button AS QBUTTON
       CAPTION = "Flash"
       OnClick = Flash
      END CREATE
     END CREATE

     Form.SHOWMODAL

     SUB Flash
      N = 0
      DO
       N++
       FlashWindow(Application.Handle, 1) 'bInvert is always 1
       SLEEP .5 'pause between on/off
      LOOP UNTIL N = 6 'number of flashes * 2
     END SUB

2013-06-19 07:48