程序界面本身就是被windows画出来的，每次显示都要画上一遍，而每次重新画出程序，你的函数并没有因此而重新调用，当然图形就不见.
创新互联专注于企业成都营销网站建设、网站重做改版、锡林浩特网站定制设计、自适应品牌网站建设、HTML5建站、商城网站建设、集团公司官网建设、成都外贸网站建设公司、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为锡林浩特等各大城市提供网站开发制作服务。
你可以在窗体的paint()事件里掉用函数
我的做法是先写入一个图片变量，然后再写入到容器上。容器设置双缓冲
还有你说的控件必须透明不太明白，可以直接在容器上绘图，不需要控件，图片的透明度可以用RGBA色的A值（透明度）来控制
我这个也是实时翻滚刷新的，不会闪！
应该是需要在Form2上做一个事件，只要在Form2里成功修改了数据库中Machine的值，则Form2可在FormCloseing事件中将修改的Machine关键值传回给Form1。而Form1中应该还要写一个更新Machine的函数，根据Form2传回的参数对Form1现在有控件进行查找参数对应的控件，然后再读取数据库中数据，再修改Form1里对应控件属性。
绘图代码写在Paint事件中，如
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim g As Graphics = Me.CreateGraphics
g.DrawLine(Pens.Red, 100, 100, 200, 100)
End Sub
'方法二：在 PictureBox1上显示图像----图画在Bitmap
PictureBox1.Image = Nothing
Dim wid As Integer = PictureBox1.ClientSize.Width
Dim hgt As Integer = PictureBox1.ClientSize.Height
Dim bm As New Bitmap(wid, hgt)
Dim g As Graphics = Graphics.FromImage(bm)
'画图代码
'画图代码
PictureBox1.Image = bm
PictureBox1.Refresh()
g.Dispose()
