XProfan

 $H Windows.ph
 $H messages.ph
WindowStyle 31
WindowTitle "GetFocus"
Window %maxX+5,5 - 1024,768
Cls ~GetSysColor(15)
var Tab&=Create("TabCtrl",%hwnd,"Tab1",5,5,width(%hwnd,0)-8,height(%hwnd,0)-32)
var Tab01&=Control("DIALOG","",$54000000,2,25,width(Tab&,0)-6,height(Tab&,0)-28,Tab&,0,%hinstance)
var Edit&=CreateEdit(Tab01&,"",110,10,287,24)
SetWindowPos %hwnd=((%maxX/2)-512),((%maxY/2)-384)-1024,768;0

WhileNot (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

    If IsKey(17) & IsKey(70)' Strg+F

        Print %GetFocus

    EndIf

EndWhile

AddHotKey 100,70,2
....
'If IsKey(17) & IsKey(70)' Strg+F (das raus)

If MenuItem(100)

    ...

EndIf