Initial commit

EDOKA_Toolset/Plugin1/Class1.vb

@@ -0,0 +1,21 @@
+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