Как сделать "выстрел" объектом? - VB

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

есть объект command1 ПОсле клика мышкой объекс напраявляется в координаты куда кликнул мышкой ?

                    Листинг программы
                
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
 
mx.Text = X
my.Text = Y
 
End Sub

и как потом пускать объект кнопку в напрвление куда кликнул мышкой ? Что то не пойму угол вычислять я не умею ? command1.left= Как тут вычислить направление mx ? commd1.top= Как тут вычислить направление my ?

Решение задачи: «Как сделать "выстрел" объектом?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit
Dim dx As Single, dy As Single, cnt As Long
 
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
  If cnt Then Exit Sub
  dx = X - Command1.Left
  dy = Y - Command1.Top
  cnt = Sqr(dx ^ 2 + dy ^ 2) / Width * 50
  dx = dx / cnt
  dy = dy / cnt
 
  Timer1.Interval = 10
  Timer1.Enabled = True
End Sub
 
Private Sub Timer1_Timer()
  If cnt Then
    cnt = cnt - 1
    With Command1
      .Left = .Left + dx
      .Top = .Top + dy
    End With
  Else
    Timer1.Enabled = False
  End If
End Sub