Start the Screen Saver

Version Compatibility:

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
Private Declare Function GetDesktopWindow Lib _ "user32" () As Long 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 Private Const WM_SYSCOMMAND As Long = &H112& Private Const SC_SCREENSAVE As Long = &HF140&