13518219792
换成form1的Load事件就不能画图了:
邓州网站建设公司成都创新互联,邓州网站设计制作，有大型网站制作公司丰富经验。已为邓州成百上千家提供企业网站建设服务。企业网站搭建\外贸网站制作要多少钱，请找那个售后服务好的邓州做网站的公司定做！
是因为form1在Load的时候,它还不能创建图形界面,也就不能执行 Me.CreateGraphics
不用PictureBoxTest.Image属性，直接把图形绘制到PictureBoxTest上面就可以了。
Dim button As Integer = 0
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) _
Handles Button1.Click
Using g As Graphics = Graphics.FromHwnd(PictureBoxTest.Handle)
Dim penRed As Pen = New Pen(Color.Red, 1) '定义红色画笔
Dim penblue As Pen = New Pen(Color.Blue, 1) '定义蓝色画笔
If button = 0 Then
g.DrawLine(penRed, 0, 0, 100, 100)
button = 1
ElseIf button = 1 Then
g.DrawLine(penblue, 100, 100, 200, 200)
button = 0
End If
End Using
End Sub
只有windows 7等以上版本的操作系统才可以自动消失。其他windows NT内核版本，例如：windows 2003,windows xp,windows 2000等老版本，要让图标托盘消失，必须至少要两种方法：
1：退出程序时，在代码里调用删除托盘图标的代码。
2：程序崩溃时或者是手动结束进程后，图标遗留在右下角，只能用鼠标移动到上面，它才会消失。
所以，必须要在代码里面写上退出托盘的程序，因为很多人当然也包括我自己，有时候编写代码，只编写了启动托盘的代码，没有写退出托盘的代码，以为程序退出了，托盘图标会自己消失。而事实上不是这样的，托盘的启动和退出，必须要自己来显式的在程序里面实现。启动托盘实现后，必须要实现退出托盘。
所以建议大家在编写托盘图标程序时，在退出程序的时候，显式的调用删除托盘图标的代码就可以了。
你想的以及接近了，要达到你要的效果，需要使用多线程，写入数据库和显示绘图的结果各一个线程
