This code, you may insert in your program, allows to start a screensaver.
Many other usefull solutions you’ll find on my site: http://www.netcity.ru/~timur555/
Glad to see you !!!
Original Author: Timur
API Declarations
Private Declare Function SendMessage Lib “User32” Alias “SendMessageA” ( _
ByVal hWnd As Long, _
ByVal wMsg As Long, _
ByVal wParam As Long, _
ByVal lParam As Long) As Long
Private Const WM_SYSCOMMAND = &H112&
Private Const SC_SCREENSAVE = &HF140&
Code
'Place this two lines of code any where in your program
'...
'enjoy!
Dim tmp As Long
tmp = SendMessage(Me.hWnd, WM_SYSCOMMAND, SC_SCREENSAVE, 0&)