呃，我测试没有问题。
你把代码改一下，不行就把例子发上来
If e.Name = "jdt" AndAlso vars("jdt") = True Then Forms("运行进度条窗口") .Close vars("jdt") = False End If
加好友 
发短信
Post By：2014/6/26 19:45:00 [只看该作者]
