Для ПР15

Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) _
     Handles Me.KeyDown
    If e.KeyCode = Keys.Q  Then Me.Close
End Sub

Private Sub Form1_Load(sender As Object, e as EventArgs) Handles Me.Load
Me.KeyPreview = True
End Sub

https://www.youtube.com/watch?v=uXYo10TVNfI