XProfan

 $H Windows.ph
 $H messages.ph
Ventana de Estilo 31
Título de la ventana "GetFocus"
Ventana %maxX+5,5 - 1024,768
Cls ~GetSysColor(15)
var Tab&=Crear("TabCtrl",%hwnd,"Tab1",5,5,width(%hwnd,0)-8,height(%hwnd,0)-32)
var Tab01&=Control("DIÁLOGO","",$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

Sinestar encargado (%Umessage = ~wm_close) & (&uWnd = %hWnd)

    WaitInput

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

        Imprimir %GetFocus

    EndIf

EndWhile

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

If MenuItem(100)

    ...

EndIf