Private Sub Command1_Click()Dim i, j As IntegerFor i = 1 To 9 Step 2Print Spc(3 + i);For j = 10 - i To 1 Step -1Print "* ";NextPrint " ";For j = 1 To iPrint "* ";NextPrintNextEnd Sub