اجرای دستور در زمان Lost Focus

سلام
من میخوام وقتی که فرمم در حالت LostFocus هست وقتی یه دکمه می زنم یه سری کار برام انجام بده
مثلاً وقتی دکمه E رو میزنم می خوام همون E در فرم نمایش داده بشه
ممنون میشم کمکم کنید :n01:

سلام../// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***********
یکی از روش ها تبدیل کلید مورد نظر به HotKey هستش که تو مثال پایین می تونید نمونش رو ببینید...//// [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
***************

کد:

---

Private Const MOD_ALT = &H1
Private Const MOD_CONTROL = &H2
Private Const MOD_SHIFT = &H4
Private Const PM_REMOVE = &H1
Private Const WM_HOTKEY = &H312
Private Type POINTAPI
    x As Long
    y As Long
End Type
Private Type Msg
    hWnd As Long
    Message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI
End Type
Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function UnregisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long) As Long
Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long
Private Declare Function WaitMessage Lib "user32" () As Long
Private bCancel As Boolean
Private Sub ProcessMessages()
    Dim Message As Msg
    'loop until bCancel is set to True
    Do While Not bCancel
        'wait for a message
        WaitMessage
        'check if it's a HOTKEY-message
        If PeekMessage(Message, Me.hWnd, WM_HOTKEY, WM_HOTKEY, PM_REMOVE) Then
            'minimize the form
            WindowState = vbMinimized
        End If
        'let the operating system process other events
        DoEvents
    Loop
End Sub
Private Sub Form_Load()
    'KPD-Team 2000
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim ret As Long
    bCancel = False
    'register the Ctrl-F hotkey
    ret = RegisterHotKey(Me.hWnd, &HBFFF&, MOD_CONTROL, vbKeyF)
    'show some information
    Me.AutoRedraw = True
    Me.Print "Press CTRL-F to minimize this form"
    'show the form and
    Show
    'process the Hotkey messages
    ProcessMessages
End Sub
Private Sub Form_Unload(Cancel As Integer)
    bCancel = True
    'unregister hotkey
    Call UnregisterHotKey(Me.hWnd, &HBFFF&)
End Sub

منبع : API-Guide

---

****************
موفق باشید! [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

ممنون از جوابتون اما اگر اشکالی نداره آرگمان های تابع RegisterHotKey رو برام توضیح بدید
و طزر استفاده از این برنامه رو هم توضیح بدید
ممنون از کمکتون:n16:

سلام
ممنون از کمکتون مشکلم حل شد فقط تابع WaitMessage دقیقاً کارش چی هست
یه مشکل دیگه هم دارم میخواستم بگم که این برای یک HotKey کار میکنه مثلاً
اگه CTRL-F بزنم فرم کمینه می کنه میخوام بگم که اگر CTRL-G زدم اون رو Maximiazed کنه
یا اگه دکمه ی End رو زدم (از صحفه کلید) پنجره رو ببنده ممنون می شم کمکم کنید.
ممنون از کمکتون:n16: