Option Explicit

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

Private Const MONITOR_ON = -1&
Private Const MONITOR_LOWPOWER = 1&
Private Const MONITOR_OFF = 2&
Private Const SC_MONITORPOWER = &HF170&
Private Const WM_SYSCOMMAND = &H112

'关闭 显示器
Public Function MonitorOff(Form As Form)
   
    Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_OFF)

End Function

'开启显示器
Public Function MonitorOn(Form As Form)
   
    Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_ON)

End Function

'关闭显示器电源 :)---深度睡眠
Public Function MonitorPowerDown(Form As Form)
   
    Call SendScreenMessage(Form.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, ByVal MONITOR_LOWPOWER)
   
End Function

由于NT下关机还要获得相应的权限,你可以使用下面的代码   
       AdjustTokenPrivilegesForNT'先获得权限   
       ExitWindowsEx  uFlags,  0   
  
下面是相关的函数   
Declare  Function  ExitWindowsEx  Lib    "user32  "  (ByVal  uFlags  As  Long,  ByVal  dwReserved  As  Long)  As  Long   
  
Public  Const  EWX_LOGOFF  =  0   
Public  Const  EWX_SHUTDOWN  =  1   
Public  Const  EWX_REBOOT  =  2   
Public  Const  EWX_FORCE  =  4   
  
Public  Const  TOKEN_ADJUST_PRIVILEGES  =  &H20   
Public  Const  TOKEN_QUERY  =  &H8   
Public  Const  SE_PRIVILEGE_ENABLED  =  &H2   
Public  Const  ANYSIZE_ARRAY  =  1   
  
Type  LUID   
       lowpart  As  Long   
       highpart  As  Long   
End  Type   
  
Type  LUID_AND_ATTRIBUTES   
       pLuid  As  LUID   
       Attributes  As  Long   
End  Type   
  
Type  TOKEN_PRIVILEGES   
       PrivilegeCount  As  Long   
       Privileges(ANYSIZE_ARRAY)  As  LUID_AND_ATTRIBUTES   
End  Type   
  
Declare  Function  GetCurrentProcess  Lib    "kernel32  "  ()  As  Long   
Declare  Function  LookupPrivilegeValue  Lib    "advapi32.dll  "  Alias    "LookupPrivilegeValueA  "  (ByVal  lpSystemName  As  String,  ByVal  lpName  As  String,  lpLuid  As  LUID)  As  Long   
Declare  Function  AdjustTokenPrivileges  Lib    "advapi32.dll  "  (ByVal  TokenHandle  As  Long,  ByVal  DisableAllPrivileges  As  Long,  NewState  As  TOKEN_PRIVILEGES,  ByVal  BufferLength  As  Long,  PreviousState  As  TOKEN_PRIVILEGES,  ReturnLength  As  Long)  As  Long   
Declare  Function  OpenProcessToken  Lib    "advapi32.dll  "  (ByVal  ProcessHandle  As  Long,  ByVal  DesiredAccess  As  Long,  TokenHandle  As  Long)  As  Long   
  
Sub  AdjustTokenPrivilegesForNT()   
  
       Dim  hdlProcessHandle  As  Long   
       Dim  hdlTokenHandle  As  Long   
       Dim  tmpLuid  As  LUID   
       Dim  tkp  As  TOKEN_PRIVILEGES   
       Dim  tkpNewButIgnored  As  TOKEN_PRIVILEGES   
       Dim  lBufferNeeded  As  Long   
      
       hdlProcessHandle  =  GetCurrentProcess()   
       OpenProcessToken  hdlProcessHandle,  (TOKEN_ADJUST_PRIVILEGES  Or  _   
                                         TOKEN_QUERY),  hdlTokenHandle   
  
       LookupPrivilegeValue    "  ",    "SeShutdownPrivilege  ",  tmpLuid   
       tkp.PrivilegeCount  =  1   
       tkp.Privileges(0).pLuid  =  tmpLuid   
       tkp.Privileges(0).Attributes  =  SE_PRIVILEGE_ENABLED   
  
       AdjustTokenPrivileges  hdlTokenHandle,  False,  tkp,  _   
                                                   Len(tkpNewButIgnored),  tkpNewButIgnored,  _   
                                                   lBufferNeeded   
 End  Sub