Option Explicit

Private Const WM_SYSCOMMAND As Long = &H112

Private Const SC_MONITORPOWER As Long = &HF170&

Private Const HWND_BROADCAST = &HFFFF&

Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" ( _

     ByVal hWnd As Long, _

     ByVal wMsg As Long, _

     ByVal wParam As Long, _

     ByRef lParam As Any) As Long

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _

    ByVal hWnd As Long, _

    ByVal wMsg As Long, _

    ByVal wParam As Long, _

    ByVal lParam As Long) As Long

Private Sub Form_Load()

    PostMessage HWND_BROADCAST, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal &

End Sub