LookupGrid: Hopefully fix the fProperties shit

GUIs.Test.TestGUI/frmLookup.vb

@@ -1,37 +1,13 @@
-Imports DigitalData.Controls.LookupGrid
+Public Class frmLookup
 
-Public Class frmLookup
     Private _Datasource As List(Of String) = New List(Of String)
 
-    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-        For index = 1 To 1000000
-            _Datasource.Add($"item-{index}")
-        Next
-
+    Private Sub frmLookup_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         Dim oTable = GetDatatable(10)
-        LookupControl31.Properties.DataSource = oTable
-        LookupControl31.Properties.ValueMember = oTable.Columns.Item(0).ColumnName
-        LookupControl31.Properties.DisplayMember = oTable.Columns.Item(0).ColumnName
-        LookupControl32.Properties.MultiSelect = True
 
-        LookupControl32.Properties.DataSource = oTable
-        LookupControl32.Properties.ValueMember = oTable.Columns.Item(0).ColumnName
-        LookupControl32.Properties.DisplayMember = oTable.Columns.Item(0).ColumnName
-        LookupControl32.Properties.MultiSelect = False
 
-        Dim oEditor As New LookupControl3
-        GridControl1.DataSource = New List(Of String) From {"foo", "var"}
-        GridControl1.ForceInitialize()
-
-        Dim oFirstColumn = GridView1.Columns.First()
-        Dim oEditor2 As New RepositoryItemLookupControl3() With {
-            .DataSource = GetDatatable(10),
-            .DisplayMember = "Col1",
-            .ValueMember = "Col1"
-        }
-
-        GridControl1.RepositoryItems.Add(oEditor2)
-        GridView1.Columns(0).ColumnEdit = oEditor2
+        LookUpEdit1.Properties.DataSource = oTable
+        LookupControl31.Properties.Datasource = oTable
     End Sub
 
     Private Function GetDatatable(Limit As Integer) As DataTable
@@ -52,8 +28,4 @@ Public Class frmLookup
 
         Return oDatatable
     End Function
-
-    Private Sub LookupControl32_EditValueChanged(sender As Object, e As EventArgs) Handles LookupControl32.EditValueChanged, LookupControl33.EditValueChanged
-
-    End Sub
-End Class
+End Class