Синусоидальное движение объекта Shape, Visual basic 6.0 Опции

[-CherkaS-]

Уважаемые товарищи программисты!!!!
Прошу прощения у вас за мою тему, но я уже какой день не могу реализовать вот что:

Мне надо сделать синусоидальное движение объекта Shape
пожалуйста кому не трудно выложите пожалуйста код реализации этого или же подробнейший алгоритм как написать код(подробнейший потому что я с бейсиком знаком не очень сильно=))))

Заранее благодарен вам, товарищи программисты!!!!

[CherkaS]

где у меня здесь ошибка фигура Shape все равно идет вверх???

Код

Dim x As Integer, y As Integer
Private Sub Form_Load()
Show
End Sub
Private Sub Form_Initialize()
With Shape1
    .FillColor = vbRed
    .FillStyle = vbSolid
    .BorderStyle = vbBSNone
End With
With Timer1
    .Enabled = True
    .Interval = 50
End With
x = 0
y = 0
t = 0
i = 1
End Sub

Private Sub Timer1_Timer()
Const Pi = 3.14
t_delta = 0.01
L = 20

With Shape1
    .Move .Left + x, .Top - y
End With

i = i + 1
x = L / (i)
For s = -5 To 5                                               "Фигура должна идти вверх
y = ((Sin(4 * Pi * i / L) + 1) / 2) * 10
Next s
For s1 = 5 To -5                                             "Фигура должна идти вниз
y = ((Sin(4 * Pi * i / L) + 1) / 2) * (-10)
Next s1

End Sub