ActiveScreenSaver

'Dichiarazioni:

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&)