Shoutbox

quote:

---

Originally posted by DJeX
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)

---

---

sorry if im a bit confused. when u say put it at right at the top of them form do you mean on a button? And put the dim IRet part on form load?

dont i need to put anything in a module?

RileyM