When I need to call setfocus() or any any other method or command that can't be executed directly, I use the following technique:

Pass the command to a Timer, that indirectly execute my command.

Here is a sample procedure that:

- Accept a command string as parameter
- Create a timer
- Execute the command
- Release the timer.

Examples: ExecCmd('DO FORM Form1 Name cFrm1')
ExecCmd('cFrm1.Texbox1.SetFocus()')

LParam pcExecCmd

Local oCmd
oCmd = CreateObject('clstimer')
oCmd.DoCmd(pcExecCmd)
Release oCmd

ENDPROC

DEFINE CLASS clstimer AS timer

    Enabled = .F.
    Interval = 55
    *-- command to execute in the timer event.
    timercmd = (Space(0))
    Name = "clstimer"
    *-- Indicate completion of the command.
    cmddone = .F.

    *-- Set the command, and activate the timer.
    PROCEDURE docmd
        LPARAM pctimercmd

        this.cmddone = .f.
        this.timercmd = pctimercmd
        this.enabled = .t.
        Do While !this.cmddone
            DoEvents
        EndDo
    ENDPROC

    PROCEDURE Timer
        this.enabled = .f.
        Local ccmd
        ccmd = this.timercmd
        If vartype(ccmd)='C' .and. !Empty(ccmd)
            &ccmd
        Endif
        this.cmddone = .t.
    ENDPROC

ENDDEFINE