Declare Auto Function SystemParametersInfo Lib "user32" (ByVal uAction As _
      Int32, ByVal uParam As Int32, _
    ByVal lpvParam As Int32, ByVal fuWinIni As Int32) As Int32
    Const SPI_SETSCREENSAVEACTIVE As Int32 = 17
 
Private Sub Beenden()
   SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, 0) 'deaktivieren
End Sub
 
Private Sub Starten()
   SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, 0) 'aktivieren
End Sub