Вращение отрезка окружности вокруг центра.

[TiG]

Есть невидимая окружность со всеми известными параметрами. Требуется перемещать по ней линию (хорду) известной длины. Перемещение зависит от переменной меняющейся от 0..360.
Вопрос немного кривовато сформулирован, надеюсь меня поймут)) подскажите как это сделать, точней формуля))

[uhm]

Ты уверен, что хорду, а не радиус?

[GSerg]

Нет, видимо хорду
Ну пример по вращению правильного многоугольника я же показывал. Ну убери все точки, кроме двух первых

[TiG]

Етить)) чет тупил)) вот че я хотел:

Dim x

Private Sub Timer1_Timer()
x = x + 10
Line1.X1 = 4000 + 3000 * Sin(3.14159265358979 / 180 * x)
Line1.Y1 = 4000 + 3000 * Cos(3.14159265358979 / 180 * x)
Line1.X2 = 4000 + 3000 * Sin(3.14159265358979 / 180 * (x + 10))
Line1.Y2 = 4000 + 3000 * Cos(3.14159265358979 / 180 * (x + 10))
End Sub