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

[-CherkaS-]

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

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

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

[CherkaS]

вот что получилсь в итоге

Код

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

Private Sub Timer1_Timer()
If n = 0 Then npm = 0
If n = 5 Then npm = 1

Const Pi = 3.14
L = 5
With Shape1
.Move x, .Top - y

i = i + 1
x = .Left + .Width / L * i

If npm = 0 Then
    n = n + 1
    y = (Sin(4 * Pi * i / L) + 1) / 2 * .Height
Else:
    n = n - 1
    y = (Sin(4 * Pi * i / L) + 1) / (-2) * .Height
End If
End With
End Sub

создаем модуль и прописываем там

Код

Public n As Integer
Public npm As Integer

проблема:
объект двигается по диагонале а мне надо что как по синусу!!!!! что у меня не правильно????
помогите пожалуйста!