关于COM组件里的控件属性

Question

    客户要求写一个ActiveX.dll模块，但里面要加一些控件如MSComm，
   在ActiveXdll的VB工程里加了一个窗体，在Class1里的代码如下：   Private Sub Class_Initialize()
        Set objFrm = New Form1
        Set MyCom = objFrm.MSComm1
    End Sub    Private Sub Class_Terminate()
        Unload objFrm
        Set MyCom = Nothing
        Set objFrm = Nothing
    End Sub    Public Function OpenPort(ByVal Port as Integer ) As Boolean
       With MyCom
           .PortOpen = False
           .CommPort = Port
           .PortOpen = True
       End With
    End Function    Public Function PortState(ByVal Port as Integer ) As Boolean
         PortState  = MyCom .PortOpen
    End Function在VB的EXE工程中装载了DLL调用OpenPort方法后，再调用PortState方法，结果还是等于False
将Class里的代码全部复制到EXE工程里，没有任何问题，
   请问各位有没有办法解决这个问题？

Answer 1

ActiveX.dll工程的Class1模块里的两个Public函数之间用什么方法可以传递数据呢？

Answer 2

在类模块里不能定义PUBLIC变量，编译就通不过啊，

Answer 3

Set MyCom = objFrm.MSComm1
你是用.Net吗？VB6的话你这样实例化貌似不可。如果MyCom没有实例化，那对象空的肯定有问题了建议使用属性返回。