Help me!!

[stateofidleness]

found this as well:

MonitorSet False
 
to turn the monitor off or
 
MonitorSet True
 
to turn the monitor on
 
 
Const MONITOR_ON = -1&
Const MONITOR_OFF = 2&
Const SC_MONITORPOWER = &HF170&
Const WM_SYSCOMMAND = &H112
 
Declare Auto Function SendMessage Lib "user32" ( _
ByVal hWnd As IntPtr, _
ByVal Msg As Integer, _
ByVal wParam As Integer, _
ByVal lParam As Integer) As Integer
 
Function MonitorSet(Optional ByVal bOn As Boolean = True) As Integer
MonitorSet = SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, IIf(bOn, MONITOR_ON, MONITOR_OFF))
End Function