星号版的平行四边形

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

End Sub