Pessoal estou tentandoo fazer uma rotina que coloque o monitor em standby

porem ela não esta funcionando seguee a declaração abaixo

 

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Public Const WM_SYSCOMMAND As Integer = &H112
Public Const SC_MONITORPOWER As Integer = &HF170
Public Const HWND_BROADCAST As Integer = &HFFFF

 

 Call SendMessage(HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, 1)

 

No caso o ultimo parametro 1 'Stand By

OBS:Estou usando VB6

alguem poderia me dar uma luz..sobre esse problema

 

flws

agradeço antecipadamente

RARS