Imports System.Runtime.InteropServices

Module Display

    Public Enum PowerState As Integer

        PowerOn = -1

        LowPower = 1

        PowerOff = 2

    End Enum



    Public Sub SetPowerState(state As PowerState)

        Dim HWND_BROADCAST As New IntPtr(&HFFFF)

        Dim WM_SYSCOMMAND As New IntPtr(&H112)

        Dim SC_MONITORPOWER As New IntPtr(&HF170)



        PostMessage(HWND_BROADCAST, WM_SYSCOMMAND, _

                    SC_MONITORPOWER, New IntPtr(state))

    End Sub



    <DllImport("user32")> _

    Private Function PostMessage( _

        hWnd As IntPtr, msg As UInteger, _

        wParam As IntPtr, lParam As IntPtr) As Boolean

    End Function

End Module