Private Sub Command1_Click()
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
For n = 1 To 8
Print Tab(n + 20)
For m = 1 To 10
Print Spc(1); "*"
Next m
Next n
End Sub