' Monitor-Power  läuft anscheinend nicht unter 2K/XP!
Public Function SetMonitorPower(ByRef hAction As String) As Long
    Dim rLng As Long
    '
    Select Case Trim$(LCase(hAction))
                'To turn off the monitor:
           Case hAction = "off"
                rLng = SendMessage(GetDesktopWindow&, WM_SYSCOMMAND, _
                  SC_MONITORPOWER, ByVal 2&)
           Case hAction = "standby"
                'Standby monitor:
                rLng = SendMessage(GetDesktopWindow&, WM_SYSCOMMAND, _
                  SC_MONITORPOWER, ByVal 1&)
           Case Else
                'To turn on the monitor:
                rLng = SendMessage(GetDesktopWindow&, WM_SYSCOMMAND, _
                  SC_MONITORPOWER, ByVal -1&)
    End Select
 
End Function