VB的ActiveX,Delphi调用报错啊

VB中这样申明的
Public Function Set_Port(ByVal ComPort As Long) As LongDelphi这样调用
MyTest.Set_Port(1)  //里面传的无论是数值，还是变量都报错报MSVBVM50.dll AccessVoliation错误 忘有经验的朋友指点一二