Hola amigo, con el siguiente codigo lo puedes hacer, pero te recomiendo revisar mas el foro por que ya alguien lo habia editado, pero no importa a hi esta :
Private Const SPI_SCREENSAVERRUNING = 97&
API SystemParametersInfo
Sub Disable()
Dim x As Long
Dim y As Boolean
x = SystemParametersInfo(SPI_SCREENSAVERRUNNING,True,y,0&)
End Sub
Bueno chao y que te haga provecho