>SET CLASSLIB TO HOME(1)+ "libs\mybase.vcx" >SET CLASSLIB TO HOME(1)+ "libs\myclasses.vcx" ADDITIVE >ocommform = CREATEOBJECT("frm") >ocommform.NEWOBJECT("comminput","mycomm") >ocommform.ADDPROPERTY("inbuffer","") >loinhandler = NEWOBJECT("incomm") > >* settings as appropriate >WITH ocommform.comminput > .commport = 1 > .settings = '9600,N,8,1' > .dtrenable = .T. > .handshaking = 2 > .rthreshold = 1 > .sthreshold = 0 > .rtsenable = .T. > .portopen = .T. >ENDWITH >EVENTHANDLER(ocommform.comminput.OBJECT,loinhandler) >ocommform.SHOW() && or not >READ EVENTS > >DEFINE CLASS incomm AS CUSTOM > IMPLEMENTS dmscommevents IN mscomm32.ocx > PROCEDURE dmscommevents_oncomm >*!* Your code here... > ENDPROC >ENDDEFINE >ocommform.NEWOBJECT("comminput","mycomm")