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