Private Sub Form_Click() Dim i As Integer For i = -4 To 4 Print Space(Abs(i)) & String(10 - 2 * Abs(i) - 1, "*") NextEnd Sub
