控件作为参数向DLL中传递的有关问题

控件作为参数向DLL中传递的问题
DLL中类A：

Private WithEvents rptReportGrid As XtremeReportControl.ReportControl

Public Function SetReportStyle(desReport As Object) As Boolean
  If TypeName(desReport) = "ReportControl" Then
  Set rptReportGrid = desReport
  Else
  Exit Function
  End If
End Function


EXE中Form1：

Private x as A

Private Sub Form_Load()
  Set x=New A
  A.SetReportStyle Me.rptReport '调用该方法时报类型不匹配错误，错误源是DLL中红色的那句
End Sub

说明：
Me.rptReport 是XtremeReportControl.ReportControl控件，类型名为ReportControl

DLL中也注册了XtremeReportControl.ReportControl

我做了个测试，同样的程序结构，我传递TextBox一点问题没有。

是不是这个控件有问题呢？

[解决办法]
mark
[解决办法]