Option Explicit

Private Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Const WM_LBUTTONDOWN = &HCB
Const WM_LBUTTONUP = &HCB

Private Sub Command1_Click()
  Label1.Caption = "Key was Pressed"
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
  SendMessage Command1.hwnd, WM_LBUTTONDOWN, 0, 0
  SendMessage Command1.hwnd, WM_LBUTTONUP, 0, 0
End Sub

Private Sub Form_Load()
  Label1.Caption = ""
  Form1.KeyPreview = True
End Sub

But I can not achive the disered result.

PLEASE SOMEBODY HELP ME WITH THIS PROBLEM!!!!
I DO NOT THINK THAT IT IS DIFFICULT FOR SUCH A GURU

Regards,
Alex

    I would think that you should be able to set the keypreview property of
the form to true and then any keypresses you could trap the keys in the form
keypress event and then fire the appropriate click event. I hope this helps, I
don't have the time to actually try it myself but I did do something similar
when trying to trap a form level keypress.

John Cantley
First Chair Technologies