8 lines
276 B
VB.net
8 lines
276 B
VB.net
Public Class Frm_Shortkey
|
|
|
|
Private Sub Frm_Shortkey_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
|
|
If e.KeyCode = System.Windows.Forms.Keys.Escape Then
|
|
Me.Close()
|
|
End If
|
|
End Sub
|
|
End Class |