Automatically set focus to profile select or first control

Global_Indexer/frmIndex.vb

@@ -1738,6 +1738,7 @@ Public Class frmIndex
                         _Logger.Info("Setting Last Saved DocType: {0}", CURRENT_LASTDOKART)
 
                         ComboboxDoctype.EditValue = oFoundDocType
+                        ComboboxDoctype.SelectNextControl(ComboboxDoctype, forward:=True, tabStopOnly:=True, nested:=True, wrap:=False)
                     End If
 
                 End If
@@ -1762,12 +1763,18 @@ Public Class frmIndex
                         If oFoundDocType IsNot Nothing Then
                             _Logger.Debug("DocType found: [{0}]", oFoundDocType)
                             ComboboxDoctype.EditValue = oFoundDocType
+                            ComboboxDoctype.SelectNextControl(ComboboxDoctype, forward:=True, tabStopOnly:=True, nested:=True, wrap:=False)
 
                             Exit For
                         End If
                     End If
                 Next
             End If
+
+
+            If ComboboxDoctype.EditValue Is Nothing Then
+                ComboboxDoctype.Select()
+            End If
         Catch ex As Exception
             ShowErrorMessage(ex, "Form Shown")
         End Try