update lookupcontrolgui

LookupControlGui/Form1.vb

@@ -2,13 +2,22 @@
     Private _Datasource As New List(Of String) From {"Foo", "bar", "baz", "quux"}
 
     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
-
         Dim oDatatable = GetDatatable()
         Dim oSelectedValues = _Datasource.Take(1).ToList()
 
         LookupControl.DataSource = oDatatable
         LookupControl.SelectedValues = oSelectedValues
-        LookupControl.ReadOnly = True
+        LookupControl.ReadOnly = False
+
+        LookupControl21.DataSource = oDatatable
+        LookupControl21.SelectedValues = oSelectedValues
+        LookupControl21.ReadOnly = True
+
+        LookupControl22.DataSource = oDatatable
+        LookupControl22.SelectedValues = oSelectedValues
+        LookupControl22.ReadOnly = False
+
+        LookupControl22.SelectedValues = New List(Of String) From {"", Nothing, "LOL"}
     End Sub
 
     Private Function GetDatatable() As DataTable
@@ -27,8 +36,4 @@
 
         Return oDatatable
     End Function
-
-    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
-        LookupControl.ReadOnly = Not LookupControl.ReadOnly
-    End Sub
 End Class