Function PercentComplete(FTGDefault As Integer, FTGCurrent As Double, FTGTotal As Double) As String
%REM
Purpose:  Displays a percent complete progress indicator in the status bar. 
Not as useful for web printing as each bar would be on a new line.
%END REM     
	Dim FTGLength As Integer
	Dim FTGCount As Integer
	
	PercentComplete = Chr(127)
	FTGLength = (FTGCurrent*FTGDefault)/FTGTotal
	For FTGcount = 2 To FTGDefault + 1
		If FTGCount <= FTGLength + 1 Then
			PercentComplete = PercentComplete + Chr(127)
		Else
			PercentComplete = PercentComplete + "-"
		End If
	Next FTGcount
	PercentComplete = PercentComplete + Chr(127) +  " " + Cstr(Cint((FTGCurrent/FTGTotal)*100)) + "% Complete"
End Function


Example call that prints to status bar:

Print PercentComplete(30,Cdbl(counter),Cdbl(totalcount))