在VB中如何实现图象的重绘,(急)

我写个程序给你：
1.画个picturebox，取名为“p”，scalemode属性设pixel.再加个定时器timer1,enable属性设false,interval随便，取400吧.
2.假定有200个数据存在data()数组，以下代码就可在p中动态移动数据曲线了。
3.代码如下:
Dim sn As Long
Dim data(0 To 200) As Long
Private Sub Form_Load()
For k = 0 To 200 '定义测试数据
data(k) = k Mod 60
Next k
sn = 0
Timer1.Enabled = True
End Sub

'画data数组中始于startno的l个数据
Private Sub drawwindow(ByVal startno As Long, ByVal l As Long)
For k = 0 To l - 1
nodno = startno + k
If nodno <= UBound(data) Then
p.Point 10 * k, data(startno + k)'点的间隔为10pixel
If k > 0 Then
p.Line (10 * k, data(startno + k))-(10 * (k - 1), data(startno + k - 1)), RGB(0, 0, 255)
End If
End If
Next k
End Sub

Private Sub Timer1_Timer()
p.Cls '清屏
drawwindow sn, 100 '画曲线
p.Line (10, 10)-(1080, 10), RGB(0, 0, 255)'画x轴
sn = sn + 1 '数据指针到下一个
If sn > 200 Then sn = 0 '到200时循环到0
End Sub
这段代码可以拷到工程里，不作修改就可运行。
如果有何不满意的地方，你自己再改改。