主题：如何在下列代码中加入进度控制条？

如何在下列代码中加入进度控制条，即生成EXCEL的时候会有进度条显示进度。生成明细的数据是根据每条记录前面的逻辑字段来判断的，选中的记录生成报表。

Dim Book As New XLS.Book(ProjectPath & "Attachments\通用结算清单.xls")
Dim fl As String =SpecialFolder.DesktopDirectory  & "\" & Date.Today() & "结算清单.xls"
Book.Build()
Book.Save(fl) '保存工作簿