add keybinding for profile selector

Global_Indexer/frmIndex.vb

@@ -2927,4 +2927,11 @@ Public Class frmIndex
             MsgBox(ex.Message)
         End Try
     End Sub
+
+    Private Sub ComboboxDoctype_KeyUp(sender As Object, e As KeyEventArgs) Handles ComboboxDoctype.KeyUp
+        If e.KeyCode = Keys.F2 Then
+            Dim oCombo As SearchLookUpEdit = sender
+            oCombo.ShowPopup()
+        End If
+    End Sub
 End Class