I've been playing with the same code from the code project web site. Thanks for the pie code - that was something I hadn't thought of.
Here is some code you can add to the module to make it a little friendlier:
(I'll leave it up to you to create the spacers)
1) Add a placeholder in the ascx called phProgress
2) Add this to the showquestion sub
ProgressBar(intQuestionNo, intTotalQuestion)
3) Add the progressbar sub
Sub ProgressBar(ByVal intQuestionNumber As Integer, ByVal intNumberOfQuestions As Integer)
Const BAR_LENGTH = 160
Dim strOutPut As String
If intQuestionNumber = 1 Then
' Since a 0 width is ignored by the browsers we need to remove the image altogether!
strOutPut = "<IMG SRC=""spacer_white.gif"" HEIGHT=""10"" WIDTH="""
strOutPut += CStr(BAR_LENGTH)
strOutPut += """><BR>"
Else
strOutPut = "<IMG SRC=""spacer_orange.gif"" HEIGHT=""10"" WIDTH="""
strOutPut += CStr((BAR_LENGTH / intNumberOfQuestions) * (intQuestionNumber - 1))
strOutPut += """>"
strOutPut += "<IMG SRC=""spacer_white.gif"" HEIGHT=""10"" WIDTH="""
strOutPut += CStr((BAR_LENGTH / intNumberOfQuestions) * (intNumberOfQuestions - (intQuestionNumber - 1)))
strOutPut += """><BR>"
End If
phProgress.Controls.Add(New LiteralControl(strOutPut))
End Sub