LookupControl: If AddNewValues is enabled, jump to new row after adding one

Controls.LookupGrid/frmLookupGrid.vb

@@ -261,4 +261,10 @@ Public Class frmLookupGrid
             End If
         End If
     End Sub
+
+    Private Sub viewLookup_FocusedRowChanged(sender As Object, e As FocusedRowChangedEventArgs) Handles viewLookup.FocusedRowChanged
+        If AddNewValues AndAlso e.PrevFocusedRowHandle = GridControl.NewItemRowHandle Then
+            BeginInvoke(Sub() viewLookup.FocusedRowHandle = GridControl.NewItemRowHandle)
+        End If
+    End Sub
 End Class