Windows - Attivare Lo ScreenSaver

Windows # 'Inserire dichiarazione e costanti in un modulo Bas
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
'Inserire il seguente codice in una routine:

Dim Result As Long
Result = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)