vb 怎样用line函数画几个排列的矩形?

有一个矩形
要按照横排几个,纵排几个,这样排列.
比如说按照下面的排法,排列,怎么弄?
长1850 宽1000

只要告诉我A排法怎么排的就行了,其它的我再慢慢研究.谢谢高手

d

'不清楚你的问题在哪里。朋友。给个参考。要求设计时把窗体变成正方形
Private Sub Form_Load()
Show
Scale (0, 0)-(5000, 5000)
Line (100, 100)-(1950, 1100), , B
Line -Step(-1850, 1000), , B
Line -Step(1850, 1000), , B
Line -Step(1850, -1000), , B
Line -Step(-1850, -1000), , B
Line -Step(1850, -1000), , B
Line -Step(1000, 1500), , B
Line -Step(-1000, 1500), , B
End Sub

使用下列图形方法工作，如：circle、cls、line、point、print 和 pset，autoredraw 属性 极为重要。利用这些方法，在改变对象大小或隐藏在另一个对象后又重新显示的情况下，设置 autoredraw 为 true，将在 form 或 picturebox 控件中自动重绘输出。 运行时 在程序中设置 autoredraw，可以在画持久图形（如背景色或网格）和临时图形之间切换。如果设置 autoredraw 为 false，以前的输出成为背景屏幕的一部分。当 autoredraw 设置为 false，用 cls 方法清除绘图区时不会删除背景图形。把 autoredraw 改回 true 后，再用 cls 将清除背景图形。