by Latesh Patel (1 Submission)
Category: Windows System Services
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Wed 6th June 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
This code activates current Screen Saver and it's settings
Private Sub Form_Load()
' It's pretty simple than your imaginations.....
Dim nRet As Long
'To bring up settings of the Screen Saver called "Bezier"
nRet = Shell("c:\winnt\system32\ssbezier.scr /c")
'To activate Screen Saver called "Bezier"
nRet = Shell("c:\winnt\system32\ssbezier.scr /s")
End Sub