Private Sub mnuClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuClear.Click
Dim g As Graphics = Graphics.FromImage(bmp)
g.Clear(Color.White)
picImg.Image = bmp : picImg.Refresh()
End Sub
这是一个清除画板的程序模块,picImg.Refresh()是对图像的刷新