Public Interface IPlugIn
'Messages die an das Plugin gehen
        Enum Messages
            MyMenuItemClick
        End Enum
        Enum MenuArea
            MnuDatei
            MnuBearbeiten
            MnuAnsicht
            MnuEinfügen
            MnuFormat
            MnuFenster
            MnuExtras
            MnuFragezeichen
        End Enum
        Enum Licenses
            Freeware
            Shareware
            Demo
            OpenSouce
            DonationWare
            Other
        End Enum
'Message die die DLL an Hauptprogramm zurückgeben kann
        Enum ReturnMessages
            ShowMyDialogAsMdi
            SetProperties
            SetMyMenuToMainWindow
        End Enum
'Plugin-Einstellungen
        Structure PlugInProperties
            Public PlugInName As String
            Public ItemEnabled As Boolean
            Public ItemVisible As Boolean
            Public Descripton As String
            Public Version As String
            Public DateOfVersion As String
            Public License As CirculiSDK.PC.Circuli.IPlugIn.Licenses
            Public Stabil As Boolean
            Public ItemInThisMenu As CirculiSDK.PC.Circuli.IPlugIn.MenuArea
            Public ItemInDir As String
        End Structure
'Alles was mit der Rückgabe der DLL an Hauptprogramm zusammenhängt
        Structure ReturnProperties
            Public Message As ReturnMessages
            Public BackColor As Color
            Public TitleText As String
            Public MyForm As Form
            Public MyMenu As Menu
        End Structure
'Diese Eigenschaft wird beim ersten laden des Plugins vom Hauptprogramm 
' abgefragt
        ReadOnly Property Prop(ByVal Message As _
          CirculiSDK.PC.Circuli.IPlugIn.Messages) As PlugInProperties
Hier die Methode <GetMessage> die vom Hauptprogramm angesprochen wird      
Function GetMessage(ByVal CopyOfMainWindow As Form, ByVal Message As _
  CirculiSDK.PC.Circuli.IPlugIn.Messages) As ReturnProperties
 
    End Interface

Public Class Close
 
    Implements CirculiSDK.PC.Circuli.IPlugIn
 
    Public Function GetMessage(ByVal CopyOfMainWindow As _
      System.Windows.Forms.Form, ByVal Message As _
      CirculiSDK.PC.Circuli.IPlugIn.Messages, ByVal SendMessageMethod As _
      System.Delegate) As CirculiSDK.PC.Circuli.IPlugIn.ReturnProperties _
      Implements CirculiSDK.PC.Circuli.IPlugIn.GetMessage
        If Message = CirculiSDK.PC.Circuli.IPlugIn.Messages.MyMenuItemClick Then
            Dim param() As Object = _
              {CirculiSDK.PC.Circuli.IPlugIn.ReturnMessages.SetProperties}
            SendMessageMethod.DynamicInvoke(param)
        End If
 
        If Message = CirculiSDK.PC.Circuli.IPlugIn.Messages.MyMenuItemClick Then
            Dim frm As New Form1
            GetMessage.Message = _
              CirculiSDK.PC.Circuli.IPlugIn.ReturnMessages.ShowMyDialogAsMdi
            GetMessage.MyForm = frm
        End If
    End Function
 
    Public ReadOnly Property Prop(ByVal Message As _
      CirculiSDK.PC.Circuli.IPlugIn.Messages) As _
      CirculiSDK.PC.Circuli.IPlugIn.PlugInProperties Implements _
      CirculiSDK.PC.Circuli.IPlugIn.Prop
        Get
            Prop.DateOfVersion = Now
            Prop.Descripton = "........"
            Prop.ItemEnabled = True
            Prop.ItemInDir = ""
            Prop.ItemInThisMenu = _
              CirculiSDK.PC.Circuli.IPlugIn.MenuArea.MnuDatei
            Prop.ItemVisible = True
            Prop.License = CirculiSDK.PC.Circuli.IPlugIn.Licenses.Freeware
            Prop.PlugInName = "........"
            Prop.Stabil = True
            Prop.Version = Application.ProductVersion
        End Get
    End Property
End Class