Public Class Form1 Const WM_SYSCOMMAND = &H112 Const SC_MONITORPOWER = &HF170 Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Dim pow As Integer = Cmonitor(2) 'Power ..