1到100，每排只显示10个数怎样输代码。

运行后显示：

1     2     3    4     5     6     7     8     9     10 

11   12  13   14   15   16   17   18   19    20

21    22   23    24    25    26  27  28  29  30 

....   .....    ....    ....    ....   ....    .....   ...   ....   ...

...   .....    ....     ...    ....     ...    ....   ....   99   100

能有序的排列 

Private Sub Form_Click()

  For i = 1 To 100

  Print i;

  Next i

End Sub

怎样改能每排只显示10个数，然后跳到下一行继续。