Public Class Class1
    Implements EDOKA_PluginLib.IPlugin

    Private objHost As EDOKA_PluginLib.IHost

    Public Sub Initialize(ByVal Host As EDOKA_PluginLib.IHost) _
    Implements EDOKA_PluginLib.IPlugin.Initialize
        objHost = Host
    End Sub

    Public ReadOnly Property Name() As String Implements _
    EDOKA_PluginLib.IPlugin.Name
        Get
            Return "EDOKA_Scan"
        End Get
    End Property

    Public Function Show(ByVal CurrentUser As String, Connectionstring As String, parentform As Object) Implements EDOKA_PluginLib.IPlugin.Show
        Globals.Mitarbeiternr = CurrentUser
        Dim f As New frmScan
        f.MdiParent = parentform
        f.Show()
    End Function
End Class