Анимация в visual basic

[0479]

Нужно написать программу , которая реализует движение тележки по форме вправо от левого угла формы Композиция состоит из обьекта shape прямоугольной формы, двух круглой формы и одного обьекта line
т.е. спицы колеса.С движением корпуса т.е прямоугольного shape и круглых shape проблем не возникает однако проблема заключается в line
т.к. спица вместо того чтобы крутиться уходит вниз формы
Ниже приведен фрагмент исходного кода на событие Timer .
Помогите пожалуйста с той частью программы которая отвечает за движение line по кругу т.е. эффект спицы в колесе.Код прилагается в архиве.То как должна выглядеть программа показано во втором архиве.Заранее благодаренhttp://programmersforum.ru/images/smilies/smile.gif

Private Sub Timer1_Timer()
kx2o = Line1.X2
ky2o = Line1.Y2
rl = Line1.X2 - Line1.X1
stl = stl - 1
kx2 = kx2o - (rl - rl * Cos(stl / 180 * 3.14159))
ky2 = ky2o - rl * Sin(stl / 180 * 3.14159)
krug.Move krug.Left + 10
Line1.X2 = kx2 + 10
Line1.X1 = Line1.X1 + 10
Line1.Y2 = ky2
kx2o = kx2o + 10
telega.Move telega.Left + 10
If telega.Left < (Form1.Width - telega.Width) Then
telega.Move telega.Left - X1, telega.Top - Y
Else
Timer1.Enabled = False

[EducatedFool]

Прикрепите к сообщению архив с проектом VB - так будет намного проще разобраться в коде.