Private Sub Command1_Click()
cls
Print
For n = 1 To 8
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Print
Next n
End Sub
Private Sub Command1_Click()
cls
Print
For n = 1 To 8
Print Tab(n + 20);
For m = 1 To 10
Print Spc(1); "*";
Next m
Print
Next n
End Sub