Code Snippet'make sure you set your forms keypreview property to true.Me.keypreview=true Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal EventArgs As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDownSelect Case EventArgs.KeyCodeCase Keys.Escapeme.close 'function to callEnd SelectEnd Sub
'make sure you set your forms keypreview property to true.
Me.keypreview=true
Private Sub frmMain_KeyDown(ByVal sender As Object, ByVal EventArgs As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
me.close 'function to call