Помогите создать непрерывное движение отрезка вокруг одного конца, при этом не меня его длины, код внутри

Question

Public Class Form1 
 Dim x As Integer 
 Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
 
 x = x + 1 
 
 Line1.X1 = 200 * (System.Math.Sin(x * 3.14159265358979 / 180)) 
 Line1.Y1 = 200 * (System.Math.Cos(x * 3.14159265358979 / 180)) 
 Line1.X2 = 90 * (System.Math.Sin(x * 3.14159265358979 / 180)) 
 Line1.Y2 = 90 * (System.Math.Cos(x * 3.14159265358979 / 180)) 
 End Sub 
End Class

только у меня движется и вторая точка, как сделать так, чтобы вращался отрезок вокруг одного конца, при этом его длина не менялас?

Папапа · Accepted Answer

ох-хо-хох. 
1. не менять 1ю точку. 
2. менять вторую точку по формуле x = x1 + R*sin(A) y = y1 + R*cos(A) 
где x1 y1 - координаты первой точки, R - длина отрезка