除了可以用Shape控件和Line控件绘图外，还可以用绘图方法画图，最有用的绘图方法包括：Line方法——它可以创建直线、矩形、或实心方框；Circle方法——可以生成圆、椭圆、或“饼图扇面”；Pset——可在屏幕上为单独象素设置颜色。
Circle方法、Line方法画图的语法结构为：
画圆：对象.Circle(x,y),r[,颜色]；
画直线：对象.Line(起点坐标)-(终点坐标)[,颜色]
画矩形：对象.Line(左上角坐标)-(右下角坐标)[,颜色],B[F]——F表示实心，B和F之间没有标点。
例：画正方形。
代码：
Option Explicit
Dim i As Integer
Private Sub Command1_Click()
For i = 1 To 6
Picture1.Line (500 * i, 500 * i)-(500 * (i + 1), 500 * (i + 1)), QBColor(i), BF
Next i
End Sub

Private Sub Command2_Click()
End
End Sub

[程序演示]                [程序下载]