XProfan

 $H Windows.ph
 $H messages.ph
Fenêtre Style 31
Titre de la fenêtre "GetFocus"
Fenêtre %maxx+5,5 - 1024,768
Cls ~GetSysColor(15)
var Tab&=Créer("TabCtrl",%hwnd,"Tab1",5,5,width(%hwnd,0)-8,height(%hwnd,0)-32)
var Tab01&=Contrôle("Dialogue",»,$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

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

        Imprimer %GetFocus

    EndIf

Endwhile

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

Si MenuItem(100)

    ...

EndIf