This is one way:

loserin = NEWOBJECT("MSCOMMLib.MSComm")
loinhandler = NEWOBJECT("InComm")
lovfpcom.bindevents(loserin,loinhandler)

DEFINE CLASS incomm AS CUSTOM
        PROCEDURE oncomm
	        DO CASE
		    CASE loserin.commevent <> 2
			* Error handling?
		    CASE loserin.commevent = 2
                        * your input processing here
		ENDCASE
	ENDPROC
ENDDEFINE

>How to manually bind events using vfpcom?
>
>I normally open drop it to my form.
>
>TIA.