>oFrm = CREATEOBJECT("Form") >oFrm.AddProperty("InputVar") >oFrm.AddObject("MSCom","MSCom") >oFrm.Show() >ON KEY LABEL ESC CLEAR EVENTS >READ EVENTS > > > > > > >DEFINE CLASS MSCom AS OLECONTROL > OleClass = "MSCOMMLib.MSComm.1" > > PROCEDURE Init > this.commport = 1 > this.settings = '9600,N,8,1' > this.dtrenable = .T. > this.handshaking = 2 > this.rthreshold = 1 > this.sthreshold = 0 > this.rtsenable = .T. > this.portopen = .T. > ENDPROC > > PROCEDURE OnCom > thisform.InputVar = this.Input > ENDPROC > > PROCEDURE Destroy > IF this.PortOpen > this.portopen = .f. > ENDIF > ENDPROC >ENDDEFINE >Just add mscomm control to a container and add that container to a form.