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