Public Function StartScreenSaver() As Boolean


Dim lDesktopWindow As Long
Dim lRet As Long

On Error GoTo ErrorHandler
lDesktopWindow = GetDesktopWindow()
lRet = SendMessage(lDesktopWindow, WM_SYSCOMMAND, _
SC_SCREENSAVE, 0)

StartScreenSaver = (lRet = 0)

ErrorHandler:
End Function