Shoutbox

Put this code above all other code in the form. (very top)

code:

---

'<<< CONSTANTS >>>
Private Const SPI_SETSCREENSAVEACTIVE As Long = 17

Private Const SPIF_UPDATEINIFILE = &H1
Private Const SPIF_SENDWININICHANGE = &H2


'<<< DECLARES >>>
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

---

Now you can put this code in the form_load:

code:

---

Dim lRet As Long
   
   lRet = SystemParametersInfo(SPI_SETSCREENSAVEACTIVE, 0, ByVal 0, SPIF_UPDATEINIFILE)

---