private Sub Form_Click()
Dim i%, j%, k%
For i = 3 To 0 Step -1
For j = 0 To 2 * i
Print " ";
Next j
'SPACE
For k = 5 To 【?】
Print "";
Next k
Next i
For i = 0 To 3
For j = 0 To 2 * i + 2
'SPACE
【?】
Next j
For k = 0 To 4 - 2 * i
Print "";
Next k
'SPACE
【?】
Next i
End Sub