>>>Mark,
>>>
>>>I think, following your other thread, your best approach would be to subclass the control into a VCX. Then, assuming mybase.vcx holds your "frm" definition, and myclasses.vcx holds the "mycomm", the following works fine:
>>>

>>>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")
>>Is that correct?
>>A form does not have such method.
>
>
>Sure does...
>
>ofrm = CREATEOBJECT("form")
>ofrm.
>
>in the Command Window tells me so.

Yes, you are right.
But still dont know how to get Input value into my code.