Launch default screen saver in vb6

Need a nice clean, easy way to do this.
robbperkAsked:
Who is Participating?
 
arif_eqbalConnect With a Mentor Commented:
This one might be easier...

Declare....

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

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Then call from say button_Click....

Call SendMessage(Me.hwnd, WM_SYSCOMMAND, SC_SCREENSAVE, 1)
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.