FoxPro/Visual FoxPro - Apagado de monitor

Hoy me he dedicado a probar declaraciones y.... en fin... habra alguna
pelicula buena por cable???

Bajo version 6 y XP...

Tengo....

DECLARE LONG SendMessage IN "user32";
LONG HWND,;
LONG wMsg,;
LONG wParam,;
LONG LPARAM

WM_SYSCOMMAND = 274
SC_MONITORPOWER = -3728

*-- Prende Monitor
=SendMessage (0,WM_SYSCOMMAND,SC_MONITORPOWER,0)

*-- Apaga Monitor
=SendMessage (0,WM_SYSCOMMAND,SC_MONITORPOWER,-1)

Ejecuto alguno de ellos y oh... el monitor tan bonito e iluminado como
siempre...

Ejem... help....

--
Dario David Puccio
El Cyber_Gaucho
www.chispazodetradicion.com.ar