You code is not going to work in runtime on PC w/o VFP installed. You've to subclass MSComm ActiveX control into a visual class (VCX).

>
>Yes, I created a Class Library and subclass it. I even followed the step by step procedure, but no luck.
>I have also a separate small code, can you double check whats wrong with my code below?
>

>Set Talk off
>PUBLIC dspForm
>
>   dspForm = CREATEOBJECT('Form')
>   *dspForm.show
>   dspForm.newObject("dspcom","slscom") && ==> Got error here..
>   dspForm.dspcom.CommPort = 1
>   dspForm.dspcom.Settings = "9600,N,8,1"
>   dspForm.dspcom.PortOpen = .T.
>   dspForm.dspcom.Output = Space(20)
>   dspForm.dspcom.Output = Space(20)
>   dspForm.dspcom.Output = Substr(xDESC,1,20)+CHR(11)+;
>   Alltrim(Transform(xPUR_QTY))+' @ '+"B$"+" "+Allt(Transform(xPur_prc,'9,999,999.99'))
>
>   dspForm.dspcom.PortOpen = .F.
>   *dspForm.Hide
>
>DEFINE class slscom as olecontrol
>     OleClass = 'MSCOMMLib.MSComm.1'
>ENDDEFINE

>
>Im using MSComm32.Ocx on my app. I have a condition that if the OS is not WinXP, use MSComm32 other wise, use the old dos Set Print command to send output to Com Port.