VB坐标图有关问题

VB坐标图问题
我现在发生的问题就是。我的VB程序能够画图。但是只要我切别的窗口。如QQ聊天界面。我的电脑等。再切回去到VB操作界面。被刚才窗口遮掉的部分坐标就会变黑了。 我现在用的是FORM_ACTIVATE画坐标。我也尝试了PAINT 但是PAINT 虽然切换回去坐标完整，但是我的动态曲线又会从目前采集到的数据开始显示。。在此之前的那段动态曲线又不在了。我想PAINT可能是重新做了一张坐标轴。把原来的刷新了。。应该如何解决。。高手

VB code

Private Sub Form_paint() Dim j As Long    Picture1.Cls    Picture1.BackColor = vbBlack    Picture1.ScaleMode = 3    Picture1.DrawWidth = 1    Picture1.Scale (-18, MAX_Y)-(MAX_X, -4)    Picture1.Line (0, 0)-(MAX_X, 0)    Picture1.Line (0, 0)-(0, MAX_Y)    Picture1.CurrentX = 460: Picture1.CurrentY = 4: Picture1.Print "数据个数"    Picture1.CurrentX = 2: Picture1.CurrentY = 97: Picture1.Print "温度/℃"    Picture1.CurrentX = 0: Picture1.CurrentY = -1: Picture1.Print "0"    For j = 1 To 25        Picture1.DrawStyle = 2        Picture1.Line (20 * j, 0)-(20 * j, MAX_Y)        Picture1.CurrentX = 20 * j - 10: Picture1.CurrentY = -1        Picture1.Print 20 * j    Next j        For j = 1 To 20        Picture1.DrawStyle = 2        Picture1.Line (0, 5 * j)-(MAX_X, 5 * j)        Picture1.CurrentX = -15: Picture1.CurrentY = 5 * j + 1        Picture1.Print 5 * j    Next jEnd Sub