function ScreenSaver
	*
	*/CC/ Starts the screensaver
	* 
	#Define WM_SYSCOMMAND  0x0112
	#Define SC_SCREENSAVE  0xf140

	Declare Integer GetFocus In user32
	Declare ;
		Integer SendMessage In user32 ;
		Integer HWnd, Integer Msg, ;
		Integer wParam, Integer Lparam
	Local hWindow
	hWindow = GetFocus()
	SendMessage(hWindow, WM_SYSCOMMAND, SC_SCREENSAVE, 0)

return
*-----