>I have only tested this code for the conditions in it. There may be other factors that prevent a control from receiving focus, like visible property.

>local loMinControl
>loMinControl = .null.
>for each loControl in ThisForm.Controls
>   if isnull(loMinControl)
>      if upper(loControl.BaseClass) <> "GRID" and pemstatus(loControl, 'SetFocus', 5) and loControl.Enabled
>         loMinControl = loControl
>      endif
>      loop
>   endif
>   if upper(loControl.BaseClass) <> "GRID" and pemstatus(loControl, 'SetFocus', 5) and loControl.Enabled
>      if loControl.TabIndex < loMinControl.TabIndex
>         loMinControl = loControl
>      endif
>   endif
>endfor
>if not isnull(loMinControl)
>   loMinControl.SetFocus()
>endif
>

That works.