Imports System.Reflection
Public Class App
Private Const ASSEMBLY_NAME As String = "plugins\test.dll"
Private Const CLASS_NAME As String = "test"
Private Const METHOD_NAME As String = "Start"
Public Sub mMain()
Try
' On charge l'assembly.
Dim assembly__1 As Assembly = Assembly.LoadFrom(ASSEMBLY_NAME)
' On obtient la classe.
Dim type As Type = assembly__1.[GetType](CLASS_NAME)
' On obtient la méthode.
Dim method As MethodInfo = type.GetMethod(METHOD_NAME)
' On crée l'objet.
Dim target As Object = Activator.CreateInstance(type)
' On appelle la méthode.
Dim s As String = DirectCast(method.Invoke(target, New Object() {"Hello World"}), String)
MsgBox(s)
Console.ReadLine()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
End Class