str = "form2"  '必须是 命名空间+点+窗体类名（这里假设为命名空间为空）

        dim tempassembly as [assembly] = [assembly].getexecutingassembly()

        dim t as type = tempassembly.gettype(str)

        dim args() as object = nothing

        dim o as object = system.activator.createinstance(t, args)

        ctype(o, form2).show()

        'dim frm2 as form = ctype(tempassembly.createinstance(str), form)

        'frm2.show()

‘////////////////方法2使用构造函数的invoke方法创建实例。

        dim ty() as type = {} ‘该构造函数没有参数

        dim c as constructorinfo = t.getconstructor(ty) ‘获得没有参数的构造函数

        dim args1() as object = nothing ‘参数为空

        dim p as object = c.invoke(nothing) ‘创建实例时参数为空

        ctype(p, form2).show()

‘方法3 ‘///////////////////////////////////////使用assembly.createinstance方法创建实例

      dim str as string

        str = "form2"  '必须是 命名空间+点+窗体类名

        dim tempassembly as system.reflection.assembly = system.reflection.assembly.getexecutingassembly()

        dim frm2 as form = ctype(tempassembly.createinstance(str), form)

        frm2.show()