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