Buenas, creo k lo k estas buscando es esto.
Private Declare Function GetAsyncKeySta te Lib "user32" _
(ByVal vKey As Long) As Integer
Private Sub Form_Load()
Timer1.Interva l = 1
End Sub
Private Sub Timer1_Timer()
If GetAsyncKeySta te(vbKeyT) Then End
End Sub
En este, cuando preciones la tecla "t" automaticament
e se cerrara la aplicacion.
donde dice vbKey"t" puedes cambiarla por la tecla que quieras, al igual por combinaciones, solo tendras k poner un signo de "+".
por ejemplo: getasynckeysta
te (vbkeyu) + (vbkeyshift)
Espero que te alla servido de algo.
Salu2.