Gestisci la pressione dei tasti impostando la KeyPreview del form su true:
codice:
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If Shift = 2 And KeyCode = vbKeyQ Then
  End
ElseIf Shift = 4 And KeyCode = vbKeyH Then
  MsgBox "Fare altro...", , "Altro"
End If
End Sub