Запросить Y пользователя нажатие одной из стрелок управления курсором - VB

Формулировка задачи:

Запросить Y пользователя нажатие одной из стрелок управления курсором. Определить нажатую клавишу, вывести на экран соответствующий комментарий ( на примере : "Вами была нажата стрелка вверх").

Решение задачи: «Запросить Y пользователя нажатие одной из стрелок управления курсором»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Form_KeyDown(KeyCode As Integer, Shift as Integer) 'определяем какая клавиша нажата
  Select Case KeyCode
        Case vbKeyUp           : Print "Нажата кнопка вверх"
        Case vbKeyDown
        Case vbKeyLeft
        Case vbKeyRight
        Case vbKeyW           : Print "Нажата кнопка W"
        Case vbKey7            : Print "Нажата кнопка 7"
 
      и так далее...
 
 Select Case Shift  'определяем какие клавиши на клавиатуре были при этом в нажатом состоянии
     Case 0:   Print "не нажата ни одна клавиша"
     Case 1:   Print " нажата клавиша SHIFT"
     Case 2:   Print " нажата клавиша CTRL"
     Case 3:   Print " нажата клавиша SHIFT,CTRL"
     Case 4:   Print " нажата клавиша ALT"
     Case 5:   Print " нажата клавиша SHIFT,ALT"
     Case 6:   Print " нажата клавиша CTRL,ALT"
     Case 7:   Print " нажата клавиша SHIFT,CTRL,ALT"
 End Select