主题：[已解决]请教Invoke执行委托

 Delegate Sub TestDG(ByVal Val() As object) '声明委托
Public Sub _TestDG(ByVal Val() As object) '委托方法
msgbox(Val(0) & "-" & Val(1))
End Sub

Dim ValArr() As object = {1,2}
Dim TDG As New TestDG(Addressof _TestDG) '实例化委托
BaseMainForm.Invoke(TDG ,ValArr) '执行委托

代码如上
传参都为Object类型数组，但执行Invoke时，报“参数计数不匹配”错误。
请教各位老师，谢谢。