Answer by
Taylor (863)
Type this into the applications sourcecode you can modify it to suite your needs:
Private Sub InitialTest_KeyDown(ByVal sender As Object, ByVal e As System. Windows. Forms. KeyEventArgs) Handles Me. KeyDown
'Close the form when escape is pressed
If e. KeyValue = Keys. Escape Then
Me. Close()
End If
End Sub