The following code:

Private Sub cmdPrint_Click()
Dim count As Integer
Dim number As Integer
Dim counter As Integer

count = 1
number = 0
counter = 0

For count = 1 To 10
Do
Print "*"
number = number + 1
counter = counter + 1
Loop While number <> counter
Print
Next count

End Sub

is supposed to produce the following shape:

*
**
***
****
*****
******
*******
********
*********
**********

Instead it produces thus:

*
*
*
*
*
*
*
*
*
*

please help.