<Serializable()> Public Class clsPlugin 'Make it creatable on Runtime
    Inherits MarshalByRefObject 'AppDomain Compatibility
    Implements clsPluginLoader.clsPluginLoader.IPlugin 
'Link this class to the plugin interface IPlugin
    Dim myHost As clsPluginLoader.clsPluginLoader.IHost
 
Public Overrides Function InitializeLifeTimeService() As Object 
'Make the plugin-lifetime unlimited (otherwise it will expire)
        Return Nothing
    End Function
 
 
    Public Sub SetHost(ByVal mHost As clsPluginLoader.clsPluginLoader.IHost) _
      Implements clsPluginLoader.clsPluginLoader.IPlugin.SetHost
        myHost = mHost 'Set a link to objects of the main-application
    End Sub
 
    Public Function GetName() As String Implements _
      clsPluginLoader.clsPluginLoader.IPlugin.GetName 'Get the plugin name
        Return "Aktueller Tag"
    End Function
 
    Public Function GetString(ByVal myZahlungsart As String) As String _
      Implements clsPluginLoader.clsPluginLoader.IPlugin.GetString 'Get the 
    ' plugin name
        Dim myDate As DateTime
        myDate = System.DateTime.Today
        Dim startDate As DateTime
        Dim endDate As DateTime
        startDate = System.DateTime.Today & " 00:00:00"
        endDate = System.DateTime.Today & " 23:59:59"
 
        Dim mySQLString As String = ""
        Select Case myZahlungsart
            Case Is = "Soll"
                mySQLString = "AND (KDI.DebitorSoll_Buchungsdatum >= '" & _
                  startDate & "')" _
                & " AND (KDI.DebitorSoll_Buchungsdatum <= '" & endDate & "')"
            Case Is = "IST"
                mySQLString = " AND (KDI.DebitorIST_Buchungsdatum >= '" & _
                  startDate & "')" _
                 & " AND (KDI.DebitorIST_Buchungsdatum <= '" & endDate & "')"
        End Select
 
        Return mySQLString
    End Function
 
    Public Sub Load() Implements clsPluginLoader.clsPluginLoader.IPlugin.Load 
'When the plugin is loaded
        'System.Windows.Forms.MessageBox.Show("Plugin is loaded 4Plugin")
    End Sub
 
    Public Sub Unload() Implements _
      clsPluginLoader.clsPluginLoader.IPlugin.Unload 
'When the plugin is unloaded
        'System.Windows.Forms.MessageBox.Show("Plugin is unloaded 4Plugin")
    End Sub
 
    Public Sub Run() Implements clsPluginLoader.clsPluginLoader.IPlugin.Run
        myHost.myLabel.Text = "Aktueller Tag"
    End Sub
 
End Class

Public Class clsPluginLoader
 
    Public Interface IPlugin
        Function GetName() As String
        Function GetString(ByVal myZahlungsart As String) As String
        Sub Load()
        Sub Unload()
        Sub Run()
        Sub SetHost(ByVal mHost As IHost)
    End Interface
 
    Public Interface IHost
        Function myLabel() As System.Windows.Forms.Label
    End Interface
 
End Class