AmvigClass与AmvigFace方法调用 WithEvents的替代方案解决方案

AmvigClass与AmvigFace方法调用 WithEvents的替代方案
有2工程AmvigClass，AmvigFace 在AmvigFace工程中创建AmvigClass对象，进入AmvigClass对象的DoAction方法，然后再DoAction方法中调用 AmvigFace 工程中的方法。


例如：
AmvigFace工程
Private Sub test_Click()
  Dim strVal As String
  Set MOBJ = New AmvigClass.clsMain
    
  strVal = MOBJ.DoAction()
  MsgBox strVal
End Sub

Private Sub testA()
  MsgBox "TestA"
End Sub

AmvigClass工程
Private Function DoAction()
  '这里假如我想调用testA方法 该怎么做？
End Sub


注意：不能使用Private WithEvents mAcls As AmvigClass.clsMain 这种方式做，
因为AmvigClass 工程里面要做事物控制，打包后需放入我们系统的中间层，这样才能连接到MTS。
因此定义为Private WithEvents mAcls As AmvigClass.clsMain。 在set mAcls =new AmvigClass.clsMain “会报拒绝权限”的错误

------解决方案--------------------
有。刚研究成功，新鲜出炉。