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

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

Доброго времени суток! При клике на изображение1 высчитывается длина между центром этого изображения и центром изображения2. Если расстояние между 2я точками меньше определенного, то изображение2 помещается на изображение1.

                    Листинг программы
                
 
                            
                        
'______________________________________________________________________
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
'______________________________________________________________________

И вопрос у меня такой: Как сделать, что б не пришлось прописывать событие каждого изображения? Изображение2 будет в зависимости от расстояния перемещаться на другие изображения (а их может быть много).

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

textual
                            Листинг программы 
                        
Private Sub Рисунок1_Click(Index As Integer)
 
End Sub