加Application.DoEvents可以防止界面“未响应”

NoSuchKey