Nu trebuie sa ii dai, il pui intr-un fisier de resursa in server. 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 Private Const WM_SYSCOMMAND = &H112& Private Const SC_MONITORPOWER = &HF170& Public Function TurnOffMonitor() SendMessage UserControl.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 1& End Function Public Function TurnOnMonitor() SendMessage UserControl.hwnd, WM_SYSCOMMAND, SC_MONITORPOWER, 0& End Function