oscanner=CREATEOBJECT("myscanner")
*...............
*---------------------
DEFINE CLASS myScanner AS form

	procedure INIT

		this.AddObject("ScannerControl1","OLecontrol","WangImage.ScanCtrl.1")
		
		WITH this.ScannerControl1
			iF not .Scanneravailable
				WAIT WINDOW TIMEOUT 1.0 "Scanner is not found/not available ?!"
				RETURN .f.
			ENDIF
		endwith
		this.Visible=.t.
*..................
	endproc
	
enddefine



>Hi,
>
>How to check if there is a scanner installed on the system or not.
>
>
>Best Regards