Imports PluginContracts Public Class Class1 Implements PluginContracts.IPlugin Public ReadOnly Property Name() As String Implements IPlugin.Name Get Return "EDOKA-Outlook Blacklist" End Get End Property Public Function Show(CurrentUser As String, Connectionstring As String, Parentform As Object) As Object Implements IPlugin.Show Globals.Mitarbeiternr = CurrentUser Dim f As New Form1 f.MdiParent = Parentform f.Show() End Function End Class