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