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
'
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
vb是不是很牛啊 怎么那么多的病毒都是vb做的啊 c#行不行？
c#在XP运行不了，除非让别人先装上.net.
VB相对于C,C++,ASM等等，局限性大多了。
别再说什么语言不如什么语言的话了，只有你不会用或用着不顺手的� ......
如题。
不用API也能实现:
http://topic.csdn.net/u/20090503/10/b8bbc710-37e3-4474-a724-ea6fad2e6bc0.html
使用API输出文本存在显示刷新问题,需在ReSize或Paint事件中加入代码.
http://download.csdn.net/ ......
各位高手，小弟想写一个程序，读取服务器上的一个共享文件，当这个文件被修改后，将此文件拷贝到本地计算机覆盖本地原来的文件。请各位大侠写段代码，和解释，谢谢！
判断文件大小或修改日期，不一样就拷贝到本地
......
