#Define FLASHW_STOP 0 #Define FLASHW_CAPTION 1 #Define FLASHW_TRAY 2 #Define FLASHW_ALL FLASHW_CAPTION + FLASHW_TRAY #Define FLASHW_TIMER 4 #Define FLASHW_TIMERNOFG 12 _Screen.WindowState = 1 INKEY(5) && wait for 5 seconds before flashing Declare short FlashWindowEx In Win32API String @pfwi Declare Integer MessageBeep In Win32API Integer Set Library To Home()+"foxtools.fll" Additive FoxWnd = MainHwnd() * Flash 5 times - 4th parameter pwfi = ; N2S(20,4)+; N2S(m.FoxWnd,4)+; N2S(FLASHW_TRAY+FLASHW_TIMERNOFG,4)+; N2S(5,4)+; N2S(0,4) MessageBeep(0x2) FlashWindowEx(pwfi) Function N2S Lparameters tnValue, tnSize Local lcStr, ix lcStr = "" For ix=1 To m.tnSize lcStr = m.lcStr + Chr(m.tnValue % 256) tnValue = Int(m.tnValue/256) Endfor Return m.lcStrCetin