jj: first usable version of lookup grid

LookupGrid/Grid.vb

@@ -1,7 +1,28 @@
 
-Public Class Grid
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+Imports System.ComponentModel
 
+Public Class Grid
+    <Category("Einstellungen"), Description("Gibt an, ob mehrere Werte auswählbar sind"), DefaultValue(False)>
+    Public Property MultiSelect As Boolean
+    <Category("Einstellungen"), Description("Gibt an, ob neue Werte hinzugefügt werden können"), DefaultValue(False)>
+    Public Property AllowAddNewValues As Boolean
+    <Category("Einstellungen"), Description("Gibt an, ob das Hinzufügen von identischen Werten erlaubt ist"), DefaultValue(False)>
+    Public Property PreventDuplicates As Boolean
+    <Browsable(False)>
+    Public Property DataSource As DataTable
+    <Browsable(False)>
+    Public Property SelectedValues As New List(Of Object)
+
+    Private Sub btnOpenForm_Click(sender As Object, e As EventArgs) Handles btnOpenForm.Click
+        Dim frm As New frmLookupGrid() With {
+            .MultiSelect = MultiSelect,
+            .AddNewValues = AllowAddNewValues,
+            .PreventDuplicates = PreventDuplicates,
+            .DataSource = DataSource,
+            .SelectedValues = SelectedValues
+        }
+
+        frm.ShowDialog()
     End Sub
 End Class