CodeItBetter Programming Another VB Programming Blog

'System & API - How to Launch Screen Saver

Option Explicit
 
Declare Function GetActiveWindow Lib "user32" () As Long
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
    ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WM_SYSCOMMAND = &H112
Public Const SC_SCREENSAVE = &HF140
 
Private Sub Command1_Click()
    Dim lResult As Long
    x = GetActiveWindow
    Const WM_SYSCOMMAND = &H112
    Const SC_SCREENSAVE = &HF140
    lResult = SendMessage(x, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)
End Sub