diff --git a/GUIs.Test.TestGUI/frmLookup.vb b/GUIs.Test.TestGUI/frmLookup.vb index 5e583021..bca26cb3 100644 --- a/GUIs.Test.TestGUI/frmLookup.vb +++ b/GUIs.Test.TestGUI/frmLookup.vb @@ -15,8 +15,12 @@ Public Class frmLookup .Location = New Point(10, 60), .Size = New Drawing.Size(100, 27) } + Dim LookupControl33 As New LookupControl3 With { + .Location = New Point(10, 110), + .Size = New Drawing.Size(100, 27) + } - Controls.AddRange({LookupControl31, LookupControl32}) + Controls.AddRange({LookupControl31, LookupControl32, LookupControl33}) LookupControl31.Properties.DataSource = oTable @@ -24,6 +28,9 @@ Public Class frmLookup LookupControl32.Properties.DisplayMember = "Col1" LookupControl32.Properties.ValueMember = "Col1" LookupControl32.Properties.DataSource = oTable + + LookupControl33.Properties.AllowAddNewValues = True + LookupControl33.Properties.MultiSelect = True End Sub Private Function GetDatatable(Limit As Integer) As DataTable