Visual Basic - Ayuda con MouseUp

Por favor requiero ayuda para el evento MouseUp, cuando suelto un objeto que se arrastró previamente el código nunca entra a este Evento (MouseUp) y necesito saber que me faltas por establecer.

Este es mi código..............
Private Sub lblRFC_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
lblRFC.Visible = False 'if we right-click, erase it
End If
PosX = X
PosY = Y
lblRFC.Drag 1
End Sub

Private Sub lblRFC_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblRFC.Drag 2
Ftexto = lblRFC.Caption
Fhorizontal = lblRFC.Left
Fvertical = lblRFC.Top
cnn.ModificaPosiciones
End Sub

Y además en el evento DragDrop del form tengo esto.......
Source.Move (X - PosX), (Y - PosY)

Me interesa mucho entrar a cnn.ModificaPosiciones (que está en mi clase) que está en el evento MouseUp, pero nunca entra el programa a el código de este evento.

Alguien sabe por qué?? Me urge muchísimo.

Gracias