You have to subclass control visually. See
BUG: License Error with ActiveX Control Added at Run-Time mskb #
192693.
>
>My system need to output a text into POS Display Stand with below command
>
>IF VARTYPE(ThisForm.oPortaComm1) != 'O'
> ThisForm.ADDOBJECT('oPortaComm1', 'OleControl', 'MSCOMMLib.MSComm')
>EndIf
>ThisForm.oPortaComm1.CommPort = 3
>ThisForm.oPortaComm1.Settings = '9600,N,8,1'
>ThisForm.oPortaComm1.PortOpen = .T.
>
>
>IT'S ALRIGHT, when installed VPF9 and running this program.
>
>((((((( Question ))))))))
>But i will got error when i install a new machine without VFP9
>
>>>>>> While running on "ADDOBJECT", i got below eroor message:-
>>>>>> OLE error code 0x80040112: Class is not licensed for use
>
>I had setup below things on new machine
>*******************
>md "c:\program files\Common files\microsoft shared"
>md "c:\program files\Common files\microsoft shared\vfp"
>copy system\dll\vfp9r.dll "c:\program files\Common files\microsoft shared\vfp"
>copy system\dll\vfp9renu.dll "c:\program files\Common files\microsoft shared\vfp"
>copy system\dll\gdiplus.dll "c:\program files\Common files\microsoft shared\vfp"
>copy system\dll\dll\vfp9t.dll "c:\program files\Common files\microsoft shared\vfp"
>copy system\dll\msvcp71.dll "c:\windows\system32"
>copy system\dll\msvcr71.dll "c:\windows\system32"
>copy system\dll\richtx32.ocx "c:\windows\system32"
>copy system\dll\lbinf32dll "c:\windows\system32"
>REGSVR32 "C:\Program Files\Common Files\Microsoft Shared\vfp\vfp9r.dll"
>***************
>
>WHAT I HAVE MISSING ?
>( I don't want to install VPF9 in every machine )
--sb--