Private Declare Function SystemParametersInfo Lib "user32" Alias _
   "SystemParametersInfoA" _
   (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal _
   fuWinIni As Long) As Long
 
Private Const SPI_GETSCREENSAVEACTIVE = 16
 
 
Private Function IsSCRActiv() As Boolean
   Dim b As Boolean
   SystemParametersInfo SPI_GETSCREENSAVECTIVE, 0, b, 0
   IsSCRActiv = b
End Function