Type Info:
ProgressView As ProgressView
Dim Progress As ProgressView Set Progress = Application.Windows.ProgressView