Private Sub Command1_Click()n = 5For i = n To 1 Step -1For j = 1 To 2 * i - 1Print "*";Next jPrintNext iEnd Sub
