Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
         MsgBox "Basılan Tuşun Kodu :" & KeyCode
End Sub