使用VB关闭显示器的一段代码

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 cmdClose_Click()
    SendMessage Me.hWnd, WM_SYSCOMMAND, SC_MONITORPOWER, 2& '根据MSDN，这个参数如果是1，则 表示显示器处于低能耗状态。
End Sub