Public Class Class1
    Implements EDOKA_PluginLib.IPlugin

    Private objHost As PluginLib.IHost

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

    Public ReadOnly Property Name() As String Implements _
    PluginLib.IPlugin.Name
        Get
            Return "Example Plugin 1 - Adds two numbers"
        End Get
    End Property

    Public Function Show(ByVal CurrentUser As String, Connectionstring As String, parentform As Object) Implements EDOKA_PluginLib.IPlugin.Show
        MsgBox(CurrentUser)
    End Function
End Class