Imports System.Drawing
Private Sub DrawGraphic()
Me.PictureBox.BackgroundImage = New System.Drawing.Bitmap(PictureBox.Size.Width, PictureBox.Size.Height)
Dim MyGraphics As System.Drawing.Graphics
MyGraphics = System.Drawing.Graphics.FromImage(PictureBox.BackgroundImage)
MyGraphics.Clear(Color.White) '使初始图片为黑色背景
'绘图
PictureBox.Refresh()
End Sub
VB6 画图源码 可实现功能 线 圆 矩形 图形移动 颜色 线宽更改 大小更改
百度搜的
亲,付钱不?