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
'
相关问答：
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
看了一些VB ini文件写入读取的方法 但是还是不知道怎么写，上面写了很长 很多，但是我不知道怎么用，我想问一下怎样写才能实现在TEXT1中写字，然后点Command1提交，然后TEXT1里面的数字就写进INI里面[Section]的Key1 ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
帮我改改 我总觉得有问题
Type ID
number As Single
score As Integer
name As String * 6
End Type
Dim personl As ID, i%
Private Sub Command1_Click()
i = 0
&nbs ......
各位高手，小弟想写一个程序，读取服务器上的一个共享文件，当这个文件被修改后，将此文件拷贝到本地计算机覆盖本地原来的文件。请各位大侠写段代码，和解释，谢谢！
判断文件大小或修改日期，不一样就拷贝到本地
......
