呃,我测试没有问题。
你把代码改一下,不行就把例子发上来
If e.Name = "jdt" AndAlso vars("jdt") = True Then Forms("运行进度条窗口") .Close vars("jdt") = False End If