' main.cs Imports System Imports System.Reflection Public Class JediMaster Shared Sub Main() Dim asm As [Assembly] = [Assembly].LoadFrom("jedi.dll") Dim masterType As Type = asm.GetType("MasterClass") Dim obiwan As MasterClass = _ CType(Activator.CreateInstance(masterType), MasterClass) ' 上の3行は次のようにも記述可能 ' Dim obiwan As MasterClass = _ ' CType(asm.CreateInstance("MasterClass"), MasterClass) obiwan.Say() ' 出力:Use the Force Dim padawanType As Type = asm.GetType("PadawanClass") Dim anakin As MasterClass = _ CType(Activator.CreateInstance(padawanType), MasterClass) ' 上の3行は次のようにも記述可能 ' Dim anakin As MasterClass = _ ' CType(asm.CreateInstance("PadawanClass"), MasterClass) anakin.Say() ' 出力:Yes, Master End Sub End Class ' コンパイル方法:vbc /r:jedi.dll main.vb