timer控件控制曲线生成

如何使用timer控件控制一条曲线的生成速度。比如说，平常我们使用line命令画直线的时候都是一瞬间完成的，我想控制控制这条直线在按5mm/s的速度生成，要怎么弄。注意，必须使用line命令，不能用pset的命令。 --------------------编程问答--------------------

Private Sub Form_Load()

    ScaleMode = 6 '毫米

    Timer1.Interval = 200

End Sub



Private Sub Timer1_Timer()

    Static i As Long

    Line (10, 20)-(10 + i, 20)

    i = i + 1

End Sub

--------------------编程问答-------------------- Timer的精度一般为15ms --------------------编程问答-------------------- http://download.csdn.net/detail/veron_04/2368159

补充：VB ,  基础类