Private Sub Command1_Click()
Dim i As Integer, j As Integer
For i = -5 To 4
Print Tab(10 - Abs(i));
For j = 1 To 5 - Abs(i)
Print "*";
Next j
Print
Next i
End Sub
Dim i As Integer, j As Integer
For i = -5 To 4
Print Tab(10 - Abs(i));
For j = 1 To 5 - Abs(i)
Print "*";
Next j
Next i
End Sub
