Option Explicit
Private Declare Function SendMessage _
Lib "user32" _
Alias "SendMessageA" (ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Const WM_SYSCOMMAND = &H112&
Const SC_MONITORPOWER = &HF170&
Private Sub Form_Load()
SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2& '根据MSDN，这个参数如果是1，则 表示显示器处于低能耗状态。
End Sub