求好手用vb解决

求高手用vb解决
编写程序，运行后里面的数字如何变成“*”号？
代码如下
Private Sub Form_Load()
Show
For i = 1 To 7
Print Tab(10 - i)
For j = 1 To 2 * i - 1
Print Chr(i + 48);
Next j
Print
Next i
End Sub
VB
[解决办法]
很正常啊，显示结果为

1
       
222
      
33333
     
4444444
    
555555555
   
66666666666
  
7777777777777


[解决办法]

Private Sub Form_Load()
 Show
 For i = 1 To 7
 Print Tab(10 - i)
 For j = 1 To 2 * i - 1
 Print "*"; 'Chr(i + 48);
 Next j
 Print
 Next i
 End Sub