我想在这段代码加一个progressbar显示进度，看了好多例子也没有成功！哪位热心的神帮个忙，先谢！
Private Sub Cmd_Mail_Click()
   Call Find    '这个过程有文件的复制功能
   SendMail Date & "系统库文件", "请注意查收并保存", "D:\database.mdb"
 Kill "D:\database.mdb"
End Sub

应该是发邮件这个过程耗时最长吧！该怎么加呢？