Line方法画矩形 VB代码例子.rar

VB画图例子，Line方法画矩形 VB代码例子，虽然简单，参考学习挺有用的： 　　Private Sub Form_Load() 　　Show 　　x = 150 　　y = 150 　　Line (100, 100)-Step(x, y), QBColor(1), BF '画出第1个蓝色小矩形 　　For i = 2 To 4 　　 Line -Step(x * i, y * i), QBColor(i), BF '依次画出递增矩形 　　Next i 　　For i = 100 To 800 Step 100 　　 Line (4000 - i, 1000 - i)-(4000 i, 1000 i), , B '画嵌套方形 　　Next i 　　End Sub