Private Declare Function GetAsyncKeyState Lib "user32" _
   (ByVal vKey As Long) As Integer
 
Private Sub Form_Load()
   Timer1.Interval = 20
End Sub
 
Private Sub Timer1_Timer()
   If GetAsyncKeyState(vbKeyEnd) <> 0 Then
      Unload Me
   End If
End Sub