وضع اختصار للأزرار

السلام عليكم ....

تفضل أخي الكريم

  On Error Resume Next
		If e.KeyCode = Keys.F2 Then
			If BtnSave.Enabled = True Then BtnSave_Click(sender, e)
		ElseIf e.KeyCode = Keys.Escape Then
			Me.BtnClose.PerformClick()
		ElseIf e.KeyCode = Keys.F3 Then
			Me.BtnNew.PerformClick()
		End If

ولكي تعمل الأختصارات يجب وضع الخاصية

Me.KeyPreview = True

والسلام خير ختام

السلام عليكم

------------------

اخي الكريم عليك وضع ما قلته داخل الحدث KeyUp الخاص ب Form

ألف شكر على دعمك أخوي ومساعدتك

والله يوفقك دائما وتكون عونا لنا