Слежение за мышкой - VB

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

всем доброе время суток! У меня есть картинка чела с оружием (вид с верху) можно ( я думаю можно =) ) как-нибудь заставить его поворачиваться в сторону мыши? что-бы сделать некое подобие "Кримсонленд" все остальное вроде могу сделать, а вот с прицелом небольшой "проблем". если на этот вопрос уже ответ есть, можете скинуть ссылку =) хотя, я вроде все темы пересмотрел, но то что мне нужно не нашел

Код к задаче: «Слежение за мышкой - VB»

textual
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Const realL = 600 ' длина рогатки :)
 
X1 = Line1.X1
Y1 = Line1.Y1
L = Sqr((X - X1) ^ 2 + (Y - Y1) ^ 2)
Line1.X2 = (X - X1) / L * realL + X1
Line1.Y2 = (Y - Y1) / L * realL + Y1
End Sub

8   голосов, оценка 3.625 из 5


СОХРАНИТЬ ССЫЛКУ