请问用VB怎样编写下列这个图形
* * * * *
* * * *
* * *
* *
*

我是菜鸟，请帮一下忙吧！

Private Sub Form_Load()
Dim STR1 As String, I As Integer, J As Integer
For I = 1 To 5
STR1 = Space(I)
For J = I To 5
STR1 = STR1 & "*" & " "
Next
Print STR1
Next
End Sub

吾该晒！