Процедура: при клике на изображение найти расстояние между центром этого и центром другого изображения

'______________________________________________________________________
Function XYlong(ByVal Xa As Integer, ByVal Ya As Integer, ByVal Xb As Integer, ByVal Yb As Integer) As Integer
XYlong = Int(Sqr(Abs(((Xb - Xa) ^ 2) + ((Yb - Ya) ^ 2))))
End Function
'____________________________________________________________________________________
Function centr(ByVal a As Integer, ByVal b As Integer) As Inte
centr = (a - b) / 2
End Function
'__________________________________________________________________________
 
Private Sub p11_Click() ' p11 - изображение1
Dim a, b, c, d, i As Integer
 
a = Int((pp.Left + pp.Width / 2))   ' координата Х точки в центре второго изображения
b = Int((pp.Top + pp.Height / 2))   ' координата У точки в центре второго изображения
c = Int((p11.Left + p11.Width / 2)) ' координата Х точки в центре первого изображения
d = Int((p11.Top + p11.Height / 2)) ' координата У точки в центре первого изображения
k = Val(Text1.Text)
Text2.Text = XYlong(a, b, c, d) ' функция, высчитывающая расстояние между двумя точками по координатам
 
 
If k > 0 Then
    If XYlong(a, b, c, d) < 1600 Then
        k = k - 1
        pp.Left = p11.Left + centr(p11.Width, pp.Width) '| Перемещение изображения2 на изображение 1
        pp.Top = p11.Top + centr(p11.Height, pp.Height) '| --------------------------------------------------------
    End If
Text1.Text = k
Else
MsgBox ("нет хода")
End If
 
End Sub
'______________________________________________________________________

For each c in controls

Sub Perenos(ctrl As Control, pp As Control)
Dim a, b, c, d, dl As Integer
 
    
    If TypeOf ctrl Is Image Then
        a = Int((pp.Left + pp.Width / 2))   ' координата Х точки в центре первого изображения
        b = Int((pp.Top + pp.Height / 2))   ' координата У точки в центре первого изображения
        c = Int((ctrl.Left + ctrl.Width / 2)) ' координата Х точки в центре второго изображения
        d = Int((ctrl.Top + ctrl.Height / 2)) ' координата У точки в центре второго изображения
        dl = XYlong(a, b, c, d)
        If k > 0 Then
            If dl < 1600 Then
                k = k - 1
                pp.Left = ctrl.Left + centr(ctrl.Width, pp.Width) ' Перемещение изображения 1 на изображение 2
                pp.Top = ctrl.Top + centr(ctrl.Height, pp.Height) '
            End If
            Text1.Text = Str(k)
        Else
            MsgBox ("Нет свободных ходов!")
        End If
    End If
End Sub

Private Sub p11_Click()
  Call Perenos(Form1.p11, Form1.pp)
End Sub

Private Sub Рисунок1_Click(Index As Integer)
 
End Sub