• Home
 · 
• Windows System Services
 · 
• This code activates current Screen Saver and it's settings

This code activates current Screen Saver and it's settings

This code activates current Screen Saver and it's settings

Rate This code activates current Screen Saver and it's settings

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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