#DEFINE SC_SCREENSAVE 0xF140 #DEFINE WM_SYSCOMMAND 0x0112 DECLARE INTEGER FindWindow IN WIN32API Integer, String nHandle = FindWindow(0,_SCREEN.Caption) DECLARE SHORT SendMessage IN WIN32API ; INTEGER nHandle, INTEGER nWmsg, ; INTEGER nParm, LONG nlParm ? SendMessage(nHandle,WM_SYSCOMMAND,SC_SCREENSAVE,0) WAIT "" TIMEOUT 2 ? SendMessage(nHandle,WM_SYSCOMMAND,SC_SCREENSAVE,1)