'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