已经解决,给后其他遇到此问题的人一个提醒,不需要任何设置!
'类定义
Class Class1
'构造器
Public Sub New(Byref handle as Class2)
Dim handle As handle = new Class2()
End Sub
End Class
//动态实例化
//装箱,创建构造器参数
Dim args As Object() = {handle}
//实例化
Dim obj As Object = Activator.CreateInstance(typeof(Class1), args)