See BUG: License Error with ActiveX Control Added at Run-Time mskb #192693. You can either drop control on a form or subclass it visually to work around this bug.


>Hi All, I am trying to use this com ports check, it works fine on my computer but does not work on any other computers. The error comes up : OLE error code 0x80040112 : Class is not licensed for use. The code I am using is below :

>LOCAL oComm, i, cOldErrorHandler
>DECLARE aComPorts[16]
>aComPorts = .T.
>cOldErrorHandler = ON('ERROR')
>FOR i = 1 TO 16
>  oComm = CREATEOBJ('MsCOMMLib.Mscomm')
>  oComm.CommPort = i
>  ON ERROR aComPorts[i] = .F.
>  oComm.PortOpen = .T.
>  oComm.PortOpen = .F.
>  oComm = NULL
>  ON ERROR &cOldErrorHandler
>ENDFOR
>For i = 1 TO 16
>	IF aComPorts[i]
>		MESSAGEBOX([Comm Port ] + ALLTRIM(STR(i)) + [ is valid])
>	ENDIF
>ENDFOR