Drag and Drop

[NDEVIL]

Saludos a todo el foro, tengo una duda acerca del uso de drag and drop, resulta que haciendo este codigo:

Private DragX As Integer
Private DragY As Integer

Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move (X - DragX), (Y - DragY)
End Sub


Private Sub Picture2_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture2.Drag 1
DragX = X
DragY = Y
End Sub

lo mismo para el mouse up, bueno resulta todo bien, el problema es que al mover la imagen quedan en la pantalla lineas por el arrastre de la imagen, me parece que es porque no libera memoria luego de terminar el arrastre, no encuentro un modo de liberar o refrescar el formulario para que no se queden esas lineas que distorsionan al mismo, si alguien puede ayudarme se los agradeceria

En que parte del code o que funcion deberia agregar en que lugar para corregir el error :S