如何在vb中的picturebox 里画图?

Sub Form_Click()
Dim CX, CY, Radius, Limit ' Declare variable.
Picture1.AutoRedraw = True
Picture1.ScaleMode = 3 ' 以像素为单位。
CX = Picture1.ScaleWidth / 2 ' X 位置。
CY = Picture1.ScaleHeight / 2 ' Y 位置。
If CX > CY Then Limit = CY Else Limit = CX
For Radius = 0 To Limit ' 半径。
Picture1.Circle (CX, CY), Radius, RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Next Radius

For I = 0 To 50 Step 2 ' Set up loop.
F = I / 50 ' 执行中间。
f1 = 1 - F: f2 = 1 + F ' 计算。
Picture1.Line (CX * f1, CY)-(CX, CY * f1) ' 画左上角。
Picture1.Line -(CX * f2, CY) ' 画右上角。
Picture1.Line -(CX, CY * f2) ' 画右下角。
Picture1.Line -(CX * f1, CY) ' 画左下角
ForeColor = QBColor(I Mod 15) ' 每次改变颜色。
Next I
SavePicture Picture1.Image, "z:\test.bmp"
End Sub

首先现在图片框中画出必要的图形控件对象
然后在代码中只要将画图所需用的控件对象或属性前面加上图片框对象名picture1就好了