System.Type から インスタンスを生成する

コメントなし。とりあえずメモ。

Private Function CreateObject(type As System.Type) As Object
        Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.GetAssembly(type)
        Return asm.CreateInstance(type.FullName)
End Sub

Private Sub Foo()

 ' Form1 クラスがあること。
  Dim obj As Object = CreateObject(GetType(Form1))

End Sub