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

[-CherkaS-]

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

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

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

[CherkaS]

еще один вариант но все также двигается только вверх надо сделать ограничение чтоб до определеного значения y вверх потом вниз тоже до определенного значения и опять вверх и тд

Код

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 = 200
If t = 1 Then t = t - t_delta
With Shape1
    .Move .Left + x, .Top - y
End With
t = t + t_delta
i = i + 1
x = L / (i + 30)

y = ((Sin(4 * Pi * i / L) + 1) / 2) * 10

End Sub