PROCEDURE CapteClic2(Message, wParam, lParam)
       //EnvoieTouche("{F12}",Handle())
       PostMessage(Handle(),WM_KEYUP,0x7B,0)
       ComboOuvre(Combo1)
RENVOYER 0