Запуск scrensaver'а

Текст модуля:

Option Compare Database
Option Explicit

' Запуск scrensaver'а
Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
ByVal IParam As Long) As Long

Const WM_SYSCOMMAND = &H112&
Const SC_SCREENSAVE = &HF140&

Обращение к функции:

' Запуск scrensaver'а
Call SendMessage(Form_Форма1.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)