Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As Long, ByVal fuWinIni As Long) As Long 

Const SPI_SETSCREENSAVEACTIVE = 17 

Const SPI_SETSCREENSAVETIMEOUT = 15 

Const SPIF_SENDWININICHANGE = &H2 

Const SPIF_UPDATEINIFILE = &H1 

Private Sub Form_Load() 

  Call DisableScreenSave 

End Sub 


Private Sub Form_Unload(Cancel As Integer) 

  Call EnableScreenSave 

End Sub 


Private Sub SetScreenSaveTimeout(ByVal BySecond As Long) 

  Call SystemParametersInfo(SPI_SETSCREENSAVETIMEOUT, BySecond, 0, SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE) 

End Sub 


Private Sub EnableScreenSave() 

  Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 1, 0, SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE) 

End Sub 


Private Sub DisableScreenSave() 

  Call SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, 0, SPIF_UPDATEINIFILE + SPIF_SENDWININICHANGE) 

End Sub