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

'______________________________________________________________________
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
'______________________________________________________________________