ShockwaveFlash1.Movie = App.Path & "\w.swf"
DoEvents
Call exec
ShockwaveFlash1.Visible = False
lbl1.Caption = "数据库执行完毕!"执行后,滚动条是不动的
DoEvents
Call exec
ShockwaveFlash1.Visible = False
lbl1.Caption = "数据库执行完毕!"执行后,滚动条是不动的
不知还有没有其他方法
高手来答