Available in the LEADTOOLS Imaging toolkit.
Progress Example for Visual Basic
Private Sub TestProgress() RasterTwain.ShowProgress (True) End Sub