Imports PluginContracts Public Class Class1 Implements PluginContracts.IPlugin Public ReadOnly Property Name() As String Implements IPlugin.Name Get Return "Scan_To_EDOKA" 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 frmDokMgmt Try f.MdiParent = Parentform Catch End Try f.Show() End Function End Class