[sooriaty03]

السلام عليكم
أخي الكريم
هناك طريقتان لتنفيذ طلبك:
الأولى: أن تقوم بوضع الرمز & أمام الرقم في خاصية النص للزر
مثال:

كود :

Button1.Text ="&1"

وعندما تريد أن تضغط على زر تقوم بالضغط على المفتاح ALT مع الرقم المطلوب

أما الثانية
فهذا الكود يحقق لك مبتغاك

كود :

Public Class Form1
    Private Sub Form1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress
        For Each Button_ As Button In Me.Controls.OfType(Of Button)()
            If e.KeyChar = Button_.Text Then
                'إذا أردت أن تجعل الوميض حول الزر
                Button_.Focus()
                'وإذا أردت تنفيذ حدث الضغط على الزر
                Button_.PerformClick()
                'للخروج من الحدث
                Exit Sub
            End If
        Next
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'لتمكين خاصية الفورم من استقبال
        'جميع الأزرار التي يقوم المستخدم بالضغط عليها
        'وتستطيع تغييرها أيضا من خصائص الفورم
        Me.KeyPreview = True
    End Sub
End Class

بالتوفيق