若是这样的程序，如何用一个进度条显示程序进度？

Question

while not  条件1
'语句组1
wendwhile 条件2
'语句组2
data1.recordset.Movenext
wendwhile 条件3
'语句组3
data1.recordset.Movenext
wend

Answer 1

Private Sub objBlockedIO_CopyError(strDescription As String)    MsgBox strDescription, vbExclamation, "复制错误！"
    ProgressBar1.Value = 0
    lblPercent.Caption = "0 %"
    lblStatus = "复制"
    cmdCancel.Enabled = False
    cmdCopyFile.Enabled = True
    
End SubPrivate Sub objBlockedIO_CopyProgress(lngPercentDone As Long)'On Error Resume Next    ProgressBar1.Value = lngPercentDone
    lblPercent = lngPercentDone & " %"
    
End Sub
Private WithEvents objBlockedIO As MyCopyClass
Private Sub cmdCancel_Click()
  objBlockedIO.Cancel
    cmdCancel.Enabled = False
    
End Sub