Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal _
  hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Any) _
  As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_MONITORPOWER = &HF170
 
Public Const MONITOR_ON = -1&
Public Const MONITOR_OFF = 2&
 
 
 
Um nun den Monitor auszuschalten, übergeben wir einfach der Funktion 
SendMessage die richtigen Konstanten:
 
 
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_OFF
 
Folgender Befehl schaltet den Bildschirm dann wieder in den normalen Modus:
 
SendMessage Me.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, MONITOR_ON