TestGUI: Improve LookupForm

GUIs.Test.TestGUI/frmLookup.vb

@@ -1,13 +1,27 @@
-Public Class frmLookup
+Imports DigitalData.Controls.LookupGrid
 
-    Private _Datasource As List(Of String) = New List(Of String)
+Public Class frmLookup
+
+    Private _Datasource As List(Of String) = New List(Of String) From {"Foo", "Bar", "Baz", "Bart", "Maggie", "Homer"}
 
     Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim oTable = GetDatatable(10)
 
+        Dim LookupControl31 As New LookupControl3 With {
+            .Location = New Point(10, 10),
+            .Size = New Drawing.Size(100, 27)
+        }
+        Dim LookupControl32 As New LookupControl3 With {
+            .Location = New Point(10, 60),
+            .Size = New Drawing.Size(100, 27)
+        }
 
-        LookUpEdit1.Properties.DataSource = oTable
-        LookupControl31.Properties.Datasource = oTable
+        Controls.AddRange({LookupControl31, LookupControl32})
+
+        LookupControl31.Properties.DataSource = oTable
+
+        LookupControl32.Properties.MultiSelect = True
+        LookupControl32.Properties.DataSource = oTable
     End Sub
 
     Private Function GetDatatable(Limit As Integer) As DataTable