aklıma gelenleri ekledim
dilerim işinize yarar

Private Sub AKEngelle_KeyDown(KeyCode As Integer, Shift As Integer)

'tab: 9

'enter: 13

'ESC: 27

'pageUP: 33

'pageDown: 34

'end: 35

'home: 36

'up/yukarı: 38

'down/aşağı: 40

'execute: 43



Select Case KeyCode    'basılan tuş kodu



Case 9, 13, 27, 33, 34, 35, 36, 38, 40, 43

Case Else    ' diğer değerler

    KeyCode = 0

End Select

End Sub