Как заставить вращаться равносторонний треугольник - VB

Формулировка задачи:

его координаты:

public H ' высота экрана
public W ' ширина экрана
public R ' радиус описаной окружности'
privat sub Command1_click ()
H = Form1.Picture1.Height
W = Form1.Picture1.Width
R = 0.2
Form1.Line1.X1 = W / 2
Form1.Line1.Y1 = H / 2 - R * H
Form1.Line1.X2 = W / 2 - 0.5 * Sqr(3) * R * W
Form1.Line1.Y2 = H / 2 + 0.5 * R * H
 
Form1.Line2.X1 = Form1.Line1.X1
Form1.Line2.Y1 = Form1.Line1.Y1
Form1.Line2.X2 = W / 2 + 0.5 * Sqr(3) * R * W
Form1.Line2.Y2 = H / 2 + 0.5 * R * H
 
Form1.Line3.X1 = Form1.Line1.X2
Form1.Line3.Y1 = Form1.Line1.Y2
Form1.Line3.X2 = Form1.Line2.X2
Form1.Line3.Y2 = Form1.Line2.Y2

P. S. треугольник должен вращаться вокруг

своего центра

X=W/2 Y=H/2пож. сообщите как можно раньше

Решение задачи: «Как заставить вращаться равносторонний треугольник»

textual
                            Листинг программы 
                        

                            Dim k, t, r
 
Private Sub Form_Load()
k = 3: 'кол-во вершин (k=4-квадрат,k=5-пятигранник...)
r = 40: 'радиус круга для вписанной фигуры
Timer1.Interval = 20: Me.Width = Me.Height: Me.DrawWidth = 3: 
Me.Scale (-100, 100)-(100, -100): Me.AutoRedraw = True
End Sub
 
Private Sub Timer1_Timer()
'If t < 360 Then t = t + 0.04 Else t = 0.04 'против часовой
If t > 0 Then t = t - 0.04 Else t = 359.96 'по часовой
kf = t * Atn(1):
 
a0 = 8 * Atn(1) / k: Cls
For i = 1 To k
 a = a + a0
 x = r * Cos(kf + a): y = r * Sin(kf + a)
 X1 = r * Cos(kf + a + a0): Y1 = r * Sin(kf + a + a0)
 Line (x, y)-(X1, Y1)
Next
End Sub
                        