Private Sub Form_Click()
For j = 9 To 0 Step -1
For i = 0 To j
Print i;
Next i
Print
Next j
End Sub