Visual Basic, рисование по таймеру

[Arion]

Такая тема... Честно говоря, помощь нужна не столько мне, сколько моей девушке. Ей сказали в инсте сделать анимацию рисования фигуры, тогда она получит автомат. Люди, помогите пожалуйста сделать это, код рисования фигуры ниже! Заранее спасибо)

' Draw the curve on the form.
Private Sub DrawCurve(ByVal start_t As Single, ByVal stop_t As Single, ByVal dt As Single)
Dim t As Single


    Cls
    CurrentX = X(start_t)
    CurrentY = Y(start_t)

    t = start_t + dt
    For t = 0 To stop_t Step 0.1
        Line -(X(t), Y(t))
        t = t + dt
    Next t

    Line -(X(stop_t), Y(stop_t))
End Sub

' The parametric function X(t).
Private Function X(ByVal t As Single) As Single
    X = 8 * Sin(3 * t / 4)
End Function

' The parametric function Y(t).
Private Function Y(ByVal t As Single) As Single
    Y = 7 * Sin(t)
End Function

Private Sub Form_Paint()
Const PI As Single = 3.14159265
Const WID As Single = 17
Const HGT As Single = 17

    ScaleLeft = -WID / 2
    ScaleWidth = WID
    ScaleTop = HGT / 2
    ScaleHeight = -HGT

    DrawCurve 0, 8 * PI, 0.05
End Sub

[дмидми]

А в чём проблема-то?

[Arion]

Нужно, что бы был виден ход рисования

[дмидми]

Про VB6 не знаю, а в VBA Excel скорость рисования регулировать можно при помощи Application.Wait или Application.OnTime

[Arion]

Спасибо, но вот в том то и дело, что нужен шестой VB...

[Arion]

Люди, у кого нибудь есть идеи?