求助,我是个刚学VB的菜鸟,因为要做论文 没办法.
我想做一个曲线动画,大概就是画一条曲线,是随着时间慢慢画起来的.我用我TINER控件
我做了一个简单的例子 就是画y=x^2+300 用pset(x,y) timer=1000 多少曲线等待一段时间画成，而不是慢慢画成．不知道怎么我这么做对不对，求助高手指导！１！１谢谢

一个简单的例子，把Timer的Interval设为50

Option Explicit
Dim x As Single

Private Sub Command1_Click()
x = 1
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Picture1.ScaleMode = 3
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Picture1.ScaleWidth = 30
Picture1.PSet (x, x ^ 2 + 30), vbRed
x = x + 0.1
Debug.Print "x=" & x & ",y=" & x ^ 2 + 30
End Sub