LookupGrid: Add SelectedValuesChanged event

Controls.LookupGrid/LookupControl2.vb

@@ -13,6 +13,9 @@ Imports DevExpress.XtraEditors.Controls
 Public Class LookupControl2
     Inherits GridLookUpEdit
 
+    Public Delegate Sub SelectedValuesChangedHandler(sender As Object, SelectedValues As List(Of String))
+    Public Event SelectedValuesChanged As SelectedValuesChangedHandler
+
     Public Property MultiSelect As Boolean
     Public Property AllowAddNewValues As Boolean
     Public Property PreventDuplicates As Boolean
@@ -132,6 +135,12 @@ Public Class LookupControl2
 
         Values.RemoveAll(Function(v) String.IsNullOrEmpty(v))
 
+        ' Update selected values before changing edit value
+        ' in case EditValueChanged event is used to detect changes
+        _SelectedValues = Values
+
+        RaiseEvent SelectedValuesChanged(Me, Values)
+
         If MultiSelect = True Then
             Properties.DataSource = Values
 
@@ -148,8 +157,6 @@ Public Class LookupControl2
             Text = Values.FirstOrDefault()
             EditValue = Nothing
         End If
-
-        _SelectedValues = Values
     End Sub
 
     Private Function GetLookupForm() As frmLookupGrid