ایجاد لوزی با ویژوال بیسیک 6

با سلام
من با استفاده حلقه for اینکار رو انجام دادم:

Private Sub cmd_create_Click()
spcc = 5
For i = 1 To 5
Print Spc(spcc); RepeatStr(" * ", i)
spcc = spcc - 1
Next
spcc = 2
For i = 4 To 1 Step -1
Print Spc(spcc); RepeatStr(" * ", i)
spcc = spcc + 1
Next
End Sub

Function RepeatStr(aString As String, ByVal aNumber As Integer) As String
Dim bString As String
 
bString = aString
If aNumber > 1 Then
  For i = 2 To aNumber
    bString = bString & aString
  Next i
End If
RepeatStr = bString
End Function

واقعا ممنونم