do you know how to do it <%subject%>

thanks for help

Jan
=============================================
jK's Visual Basic page,   http://www.*-*-*.com/
                                          http://www.*-*-*.com/
                                          http://www.*-*-*.com/
=============================================

=============================================

Add this to the Declarations Section:

Const SPI_SCREENSAVERRUNNING = 97

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

Add a button with this code:

Private Sub cmdEnable_Click()
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, "1", 0)
End Sub

Add a button with this code:

Private Sub cmdRelease_Click()
Call SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, "1", 0)
End Sub

Dave
TheScarms Visual Basic Code Library
http://www.TheScarms.com