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