Hope this will help you..
todo: drag and drop a 2 Commands buttons on a form and paste this codes ..
for more info:
www.emondsoft.qapacity.com
09212279363
======codes===============
Private Sub Command1_Click()
Dim i, j As Integer
Cls
Print: Print: Print
For i = 1 To 10 'loop for a row
For j = 1 To i 'loop foa column
Print Spc(2); "*";
Next j
Print
Next i ' spaces between asterisk
End Sub
Private Sub Command2_Click()
Dim i, j As Integer
Cls
Print: Print: Print
For i = 10 To 1 Step -1
For j = 1 To i
Print Spc(2); "*";
Next j
Print
Next i
End Sub