Private Sub Command1_Click()
For i = 1 To 10
For j = 1 To i
Print j;
Next j
Print
Next i
End Sub Private Sub Command2_Click()
For i = 1 To 8
Print Space(8 - i);
For j = 1 To 2 * i - 1
Print "#";
Next j
Print
Next i
End Sub