Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _ lParam As Long) As Long Public Const WM_SYSCOMMAND = &H112 Public Const SC_SCREENSAVE = &HF140 'Utilizzo: Dim Result As Long Result = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&) |