LookupGrid: show value when only one value is selected, if new value is added in multiselect, select it automatically

Controls.LookupGrid/frmLookupGrid.vb

@@ -233,4 +233,11 @@ Public Class frmLookupGrid
     Private Sub frmLookupGrid_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         BringToFront()
     End Sub
+
+    Private Sub viewLookup_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles viewLookup.ValidateRow
+        If MultiSelect Then
+            Dim oRow As DataRowView = viewLookup.GetRow(e.RowHandle)
+            oRow.Row.Item("SELECTED") = True
+        End If
+    End Sub
 End Class