I hope someone can help with this.

We are trying to use an ActiveX dll written in VB6, the control works fine in VB6, C++, xbase++, Delphi6 and VFP5 but won't work in VFP7. I have tried setting AutoYield to .T. and .F. and setting SYS(2333) on and off. Neither has made any difference.

Every time the code is run I should get 0 back which mean it has succeeded, the first time the code is run in VFP7 it works OK but after that it always returns an error. As mentioned the same code works fine in VFP5.


Here is the code


Has any one got any ideas?

LOCAL ohhcom, lnResult

ohhcom = CREATEOBJECT("HH32commDriver.HH32COMM")

ohhcom.Config_Port = 1
ohhcom.Config_Root = "C:\Hedgehog\HHT\"

lnResult = ohhcom.HHOK()
MESSAGEBOX(str(lnResult),0,"First HHOK()")

lnResult = ohhcom.HHOK()
MESSAGEBOX(str(lnResult),0,"Second HHOK()")

lnResult = ohhcom.HHConnected()
MESSAGEBOX(str(lnResult),0,"HHConnected")

Thanks

John