Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
.....Tuşa basılması ile yapılacak olan işlemler
End Sub

sanırım bu olması gerekiyor hemşom