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

VB画图例子，Line方法画矩形VB代码例子，虽然简单，参考学习挺有用的： 　　PrivateSubForm_Load() 　　Show 　　x=150 　　y=150 　　Line(100,100)-Step(x,y),QBColor(1),BF'画出第1个蓝色小矩形 　　Fori=2To4 　　Line-Step(x*i,y*i),QBColor(i),BF'依次画出递增矩形 　　Nexti 　　Fori=100To800Step100 　　Line(4000-i,1000-i)-(400