Поворот картинки за мышкой

[And_Rey1]

Люди помогите. В школе плохо учился sin и cos плохо знаю
Я с этой проблемой встречаюсь уже не первый раз и не могу её решиь!

Надо решить задачу так что бы картинка рисовалась по середине
'формы и вращалась, полоской смотря всегда на мышь

Я заготовку кинул без кода. Кто чем может помогите PLS.

[pronto]

Держи...

Код: Выделить всё

Private cx As Long, cy As Long
Private dx As Long, dy As Long
Private sw As Long, sh As Long

Private A As Double, alpha As Double
Private Const gPi As Double = 3.14159265358979   '÷èñëî     ïè = 180°
Option Explicit

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   
   A = X - cx
   If A = 0 Then A = 0.000001
   alpha = Atn((cy - Y) / A)
   If A < 0 Then alpha = alpha - gPi
   
   dx = sw * Cos(alpha) * 0.5
   dy = sw * Sin(alpha) * 0.5
   
   Line1.X2 = cx + dx
   Line1.Y2 = cy - dy
End Sub

Private Sub Form_Resize()
   cx = Form1.ScaleWidth * 0.5
   cy = Form1.ScaleHeight * 0.5
   
   sw = Form1.ScaleWidth * 0.4
   'sh = Form1.ScaleHeight * 0.4
   
   Shape1.Width = sw
   Shape1.Height = sw
   
   Shape1.Left = cx - sw * 0.5
   Shape1.Top = cy - sw * 0.5
   
   Line1.X1 = cx
   Line1.Y1 = cy

End Sub

З.Ы. Надо этот код в FAQ выкладывать...

[And_Rey1]

Спасибо!!!
Только надо доработать: нужно что бы картинка вращалась во круг своей оси за мышкой.

[Хакер]

And_Rey1
Вокруг пишется слитно, если не имеется ввиду into the circle.

И не понятно, что значит "вращалась за мышкой".

[pronto]

Только надо доработать

Ну, это ты уже сам как-нибудь!