إذا أردت أن تنقر فوق Command معين مثل Caption :F1 ليعمل وظيفته كما في الـ Windows.
ماالحل وشكراً ؟

قد يكون قصدك أحد الإحتمالين التاليين :
--
1 )
عند الضغط على زر معين يتم تفيذ حدث معين :
مثلاً : إذا ضغطت على زر X
سيؤدي إلى إنهاء البرنامج

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 88 Then End
End Sub

و إن كنت لا تعرف الكود لأي زر يمكنك معرفته عن طريق الكود التالي

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
MsgBox KeyCode
End Sub

و عند ذلك اضغط أي زر فيظهر رسالة بالكود أي الخاص به
--
2 )
جعل برنامجك يقوم بالضغط على زر معين
مثال : تريد من برنامجك الضغط على حرف معين , عند ذلك استخدم الـ Function التي تسمى Send Keys
كما يلي :

SendKeys ("In Structurez")

ملاحظة إذا كنت تستخدم الدوت نيت
عليك بدلاً من كتابة SendKeys كتابة SendKeys.Send