كيف استقبل مفاتيح الكيبورد بدون الأحداث

السلام عليكم

يفترض أن يكون بهذا الشكل

With Me.Label1

            'Delete pressed
            If e.KeyChar = Microsoft.VisualBasic.ChrW(12) Then
                .Text = "Backspace pressed"
            End If

            'Left arrow pressed
            If e.KeyChar = Microsoft.VisualBasic.ChrW(37) Then
                .Text = "Left Arrow pressed"
            End If

            'Up arrow pressed
            If e.KeyChar = Microsoft.VisualBasic.ChrW(38) Then
                .Text = "Up Arrow pressed"
            End If

            'Right arrow pressed
            If e.KeyChar = Microsoft.VisualBasic.ChrW(39) Then
                .Text = "Right Arrow pressed"
            End If

            'Down arrow pressed
            If e.KeyChar = Microsoft.VisualBasic.ChrW(40) Then
                .Text = "Down Arrow pressed"
            End If

        End With

لكن للأسف كلها لا تعمل ما عدى الاحرف و الارقام و بعض الازرار كمثلاً backspace و الحل إن شاء الله عندك

بالتوفيق أخي الكريم

السلام عليكم

بقية الأزرار هي في حدث down .

لكني لا اريد ان اعتمد على الأحداث كما فعلت انت انا اريد تحديد معالجة اخرى غير الأحداث كيف ذلك