Detectar objetos

[truskyvb]

Buen día a todos. Una vez más os pido ayuda ya que por más que lo intento no consigo resolver el problema.
Tengo dos label. Una se mueve con el ratón. El problema es que necesito que si llega hasta donde está la otra label, sea desde arriba, de lado o desde abajo, no pase, que parezca que choca. Es para hacer una especie de Tangram.

Tengo este código que es el que mueve la label1:

Option Explicit
Private xIni As Single
Private yIni As Single

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Label1.Top = Label1.Top + (Y - yIni)
Label1.Left = Label1.Left + (X - xIni)
End If

Y de ahí no consigo pasar.
Gracias por vuestra atención y ayuda. Un saludo