You could use two rectangle shapes and adjust the width.

Code:
lblMaxScore.Text = "Total Possible: 20"
shpMaxScore.Width = 8055 ' Or whatever you want the max width to be
lblUserScore.Text = "Your Score: " & UserScore
shpUserScore.Width = (UserScore / 20) * shpMaxScore.Width ' Figure the percentage of the Score and convert the width of the box

------------------
Boothman
There is a war out there, and it is about who controls the information, it's all about the information.