| 'open screensaver
Private Sub Form_Load()
Dim result As Long
'opens the settings of the screensaver
result = Shell("h:\windows\system32\ssbezier.scr /c")
'starts the screensaver
result = Shell("h:\windows\system32\ssbezier.scr /s")
End Sub
'NOtes :
'Change the path of the screensaver
|