Как организовать движение объекта к цели

Private Sub Command1_Click()
F = Abs((ax - cX) * (By - cY) - (bx - cX) * (ay - cY)) / 2
If F Then
 
  Debug.Print "равно=" & F
Else
  Debug.Print "не такого трегуольника"
End If
End Sub
 
Private Sub Form_Load()
   ax = 81
   ay = 223
   bx = 264
   By = 299
   cX = 121
   cY = 389
 
 
End Sub

Type Coor
   X As Double
   Y As Double
 End Type
 
 Function Get_3AngleSqr(a As Coor, b As Coor, c As Coor) As Double
 Get_3AngleSqr = ((a.X - b.X) * (a.Y + b.Y) + (b.X - c.X) * (b.Y + c.Y) + (c.X - a.X) * (c.Y + a.Y)) / 2
 End Function
 
 
Private Sub Command1_Click()
 
 
Get_3AngleSqr a(122,387), b(84,223), c(265,303)
End Sub

Option Explicit
 
 
 
 Function Get_3AngleSqr(a As Coor, b As Coor, c As Coor) As Double
 
Get_3AngleSqr = ((a.X - c.X) * (b.Y - c.Y) - (b.X - c.X) * (a.Y - c.Y)) / 2
 
 End Function
 Private Type Coor
   X As Double
   Y As Double
 End Type
 
Private Sub Command1_Click()
 
Get_3AngleSqr a(122, 387), b(84, 223), c(265, 303)
End Sub

Option Explicit
Private Type Coor 'объявляется вначале модуля до всех процедур и функций!!!
X As Double
Y As Double
End Type

Option Explicit
 
 Private Type Coor
   X As Double
   Y As Double
 End Type
 
 
 Function Get_3AngleSqr(a As Coor, b As Coor, c As Coor) As Double
 
Get_3AngleSqr = ((a.X - c.X) * (b.Y - c.Y) - (b.X - c.X) * (a.Y - c.Y)) / 2
 
 End Function
 
Private Sub Command1_Click()
 
Get_3AngleSqr a(122, 387), b(84, 223), c(265, 303)
End Sub

Option Explicit
 
 Private Type Coor
   X As Double
   Y As Double
 End Type
 Dim B As Coor, C As Coor, V As Coor, Pi As Single, A As Single
 
 
 Function Get_3AngleSqr(A As Coor, B As Coor, C As Coor) As Double
 
Get_3AngleSqr = ((A.X - C.X) * (B.Y - C.Y) - (B.X - C.X) * (A.Y - C.Y)) / 2
 
 End Function
 
Private Sub Command1_Click()
 
Get_3AngleSqr A.X(122), A.Y(387), B.X(84), B.Y(223), C.X(265), C.Y(303)
End Sub

Function Get_3AngleSqr(Ax#,ay#,bx#,by#,cx#,cy#) As Double
 Get_3AngleSqr = ((AX - CX) * (BY - CY) - (BX - CX) * (AY - CY)) / 2
End Function
 
Private Sub Command1_Click()
msgbox Get_3AngleSqr(122,387,84,223,265, 303)
End Sub

Option Explicit
 
Private Type vec
    X As Single
    Y As Single
End Type
Private Type player
    p As vec        ' Позиция
    d As vec        ' Направление
End Type
 
Dim WithEvents tmr  As Timer
Dim dst             As vec
Dim src             As player
 
Private Const IncAngle  As Single = 3.14 / 180 * 5 ' Инкремент поворота в радианах
Private Const IncDist   As Single = 4              ' Инкремент расстояния в пикселях
 
Private Sub Form_Load()
    ScaleMode = vbPixels
    Set tmr = Me.Controls.Add("VB.Timer", "tmr")
    tmr.Interval = 32
    src.p.X = ScaleWidth / 2
    src.p.Y = ScaleHeight / 2
    src.d.X = 0
    src.d.Y = -1
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    dst.X = X: dst.Y = Y
End Sub
 
Private Sub tmr_Timer()
    Dim ang As Single
    Dim siz As Single
    Dim vec As vec
    Dim dir As Single
    ' Находим вектор
    vec.X = dst.X - src.p.X
    vec.Y = dst.Y - src.p.Y
    ' Находим расстояние
    siz = Sqr(vec.X * vec.X + vec.Y * vec.Y)
    ' Если расстояние меньше инкремента то значит цель настигнута
    If siz < IncDist Then
        Caption = "Найден"
        Exit Sub
    Else: Caption = ""
    End If
    ' Норма
    vec.X = vec.X / siz: vec.Y = vec.Y / siz
    ' Косинус угла
    ang = vec.X * src.d.X + vec.Y * src.d.Y
    ' Определяем направление
    If (vec.X * src.d.Y - vec.Y * src.d.X) < 0 Then dir = IncAngle Else dir = -IncAngle
    ' Поворачиваем вектор
    vec = src.d
    src.d.X = vec.X * Cos(dir) - vec.Y * Sin(dir)
    src.d.Y = vec.X * Sin(dir) + vec.Y * Cos(dir)
    ' Если направление в одну стророну двигаем ( -45 Градусов)
    If ang > 0.707 Then
        src.p.X = src.p.X + src.d.X * IncDist
        src.p.Y = src.p.Y + src.d.Y * IncDist
    End If
    Draw
End Sub
 
Private Sub Draw()
    Cls
    Line (src.p.X, src.p.Y)-Step(src.d.X * 15, src.d.Y * 15)
    Circle (src.p.X, src.p.Y), 3
    Circle (dst.X, dst.Y), 3, vbRed
End Sub

Private Sub Timer1_Timer()
Dim f As Single
V.X = 20 * Cos(A)
Debug.Print V.X
V.Y = 20 * Sin(A)
Debug.Print V.X
f = (B.X - C.X) * (B.Y + V.Y - C.Y) - (B.X + V.X - C.X) * (B.Y - C.Y)
A = A + Sgn(f) / Pi / 5
B.X = B.X + V.X
B.Y = B.Y + V.Y
draw
End Sub