按Esc鍵退出對話框

    Private Sub UserForm1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Input.KeyEventArgs) Handles Me.KeyUp
        If e.Key = Key.Escape Then
            'Me.Close()
            m_Owner.Close()
        End If

    End Sub