vb中DoEvents的使用问题？
我在vb中对access数据库进行压缩和备份时，时间比较长，于是我就加了个类似进度条的东西（一个图片在进度条里左右循环移动），但是程序运行时，进度条里的图片就不动了，可能是要加个Doevents，但不知道加到哪？加了几个地方都不行。
进度条里的图片移动是用timer控件控制的，按理说应该不影响的，这个怎么解决，
压缩备份的代码：
Public Sub CompactJetDatabase(Location As String, Optional BackupOriginal As Boolean = True)
'工程中引用Microsoft DAO 3.6 Object Library
'On Error GoTo CompactErr
Dim strBackupFile As String
Dim strTempFile As String
'检查数据库文件是否存在
If Len(Dir(Location)) Then
'如果需要备份就执行备份
If BackupOriginal = True Then
strBackupFile = App.Path & "\backup.mdb"
If Len(Dir(strBackupFile)) Then Kill strBackupFile
FileCopy Location, strBackupFile
End If
'创建临时文件名
strTempFile = App.Path & "\temp.mdb"
If Len(Dir(strTempFile)) Then Kill strTempFile
'通过DBEngine压缩数据库文件
DBEngine.CompactDatabase Location, strTempFile
'删除原来的数据库文件
Kill Location
'拷贝刚刚压缩过临时数据库文件至原来位置
FileCopy strTempFile, Location
'
相关问答：
希望大家能够帮我下.感谢了..
源码传在大米盘 VB6 的源码 http://www.damipan.com/file/3wNoKLW.html
转为VB.NET源码.
小弟完全是新手 不懂的说.麻烦各位帮忙一下
我的EMAIL是:4452 ......
我在用VB写一个将视频文件上传到远程数据库的小程序，现在想要用进度条来显示当前上传的进度，请问要怎么做呢？我是个新手，所以麻烦大家把意见写清楚一些，有代码最好啦，谢谢！
要完全正确比较困难。
估计下� ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
各位高手，小弟想写一个程序，读取服务器上的一个共享文件，当这个文件被修改后，将此文件拷贝到本地计算机覆盖本地原来的文件。请各位大侠写段代码，和解释，谢谢！
判断文件大小或修改日期，不一样就拷贝到本地
......
有没有FOR VB 水晶报表的书或是电子文档啊？有信息的朋友告诉下 谢谢了
我也没找到
如果你有 FOR 其它 的文档，也可以参考吧！
‘道理’是一致的，只是“表达方式”不同而已。
mark
pls learn from ba ......
