Const WM_SYSCOMMAND As Long = &H112
Const SC_SCREENSAVE As Long = &HF140
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
Function LanceScreenSaver() As Boolean
LanceScreenSaver = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Function