怎样让放入ROT对象中的对象历程结束后，还可以共其他进程用

怎样让放入ROT对象中的对象进程结束后，还可以共其他进程用
我有一个写的cab包，在ie上点击时调用cab中的一个方法，在ROT中加入一个对象，不关ie可以用GetObject(,""thtf.myRot")可以得到 ROT中放的对象，可关了ie就得不到了，ROT的对象不是跨进程的吗？需要什参数

Private Const ACTIVEOBJECT_STRONG = 0

Private Const ACTIVEOBJECT_WEAK = 1

Private Declare Function CLSIDFromProgID Lib "ole32.dll" (ByVal ProgID As Long, rclsid As GUIDs) As Long

Private Declare Function CoDisconnectObject Lib "ole32.dll" (ByVal pUnk As IUnknown, pvReserved As Long) As Long

Private Declare Function RegisterActiveObject Lib "oleaut32.dll" (ByVal pUnk As IUnknown, rclsid As GUIDs, ByVal dwFlags As Long, pdwRegister As Long) As Long

Private Declare Function RevokeActiveObject Lib "oleaut32.dll" (ByVal dwRegister As Long, ByVal pvReserved As Long) As Long


Public Sub runExcel(Optional path_ As String = "")

Dim myRot_

On Error GoTo l

 Set myRot_ = GetObject(, "thtf.myRot")

GoTo l1


l:

 Set myRot_ = New myRot

  Call addRot("thtf.myRot", myRot_)

l1:

'......

End Sub


Public Sub addRot(strName As String, up)

  Dim mGuid As GUIDs

    Dim lp As Long

 


    OLEInstance = 0


    lp = CLSIDFromProgID(StrPtr(strName), mGuid)

     


    If lp = 0 Then

        lp = RegisterActiveObject(up, mGuid, ACTIVEOBJECT_WEAK, OLEInstance)

    End If

End Sub

------解决方案--------------------
ROT只是接口而已，实现接口的代码都不运行了，接口当然没用了。
要在页面关闭之后继续使用对象的话，把对象移动到一个单独的进程里面去。