使用Esc键关闭对话框

Private Sub ss_Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
        
        ‘对话框的KeyPreview属性需设置为True
        e.Handled = True

        If e.KeyValue = 27 Then
            Me.Close()
        End If
End Sub