Imports PluginInterfaces
 
Public Class meinPlugin
 
    Implements Plugin
 
    Private _iHost As Host
    Public Sub New(ByVal iHost As Host)
        _iHost = iHost
    End Sub
 
    Public Sub oeffneFenster() Implements Plugin.oeffneFenster
        '...
    End Sub
 
    Public Sub macheDies() Implements Plugin.macheDies
        '...
        MsgBox("Hostname ist:" & _iHost.holeName)
    End Sub
 
    Public Function macheDas() As Object Implements Plugin.macheDas
        '...
        Return Nothing
    End Function
 
End Class

Imports PluginInterfaces
 
Public Class Form1
    Implements Host
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim iplugin1 As Plugin
 
        Dim asm As System.Reflection.Assembly = System.Reflection.Assembly.Load( _
          "TestPlugin1")
        iplugin1 = CType(asm.CreateInstance("TestPlugin1.meinPlugin", True, _
        Reflection.BindingFlags.CreateInstance, Nothing, New Object() _
        {DirectCast(Me, Host)}, Nothing, Nothing), Plugin)
 
        iplugin1.macheDies()
 
    End Sub
 
    Public Function holeName() As Object Implements _
      PluginInterfaces.Host.holeName
        Return "I'm called HostApplication"
    End Function