Visual Basic - Problema con el siguiente codigo

Utilizo el siguiente codigo para mover un control text por el formulario:

Dim Save_X As Single
Dim Save_Y As Single

Private Sub textbox1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Save_X = X
Save_Y = Y
Text1.Drag 1
End Sub

Private Sub textbox1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Text1.Drag 2
End Sub

Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move X - Save_X, Y - Save_Y
End Sub

Private Sub textbox1_DragDrop(Source As Control, X As Single, Y As Single)
Source.Move Text1.Left + X - Save_X, Text1.Top + Y - Save_Y
End Sub

El problema es que no puedo utlizar las funciones de seleccionar texto porque al darle click el control se mueve, ademas que este codigo para moverlo no es muy preciso ya que si lo arratro y lo coloco en una posicion este no queda donde yo lo dejo.
¿Como puedo solucionar esto?
¿De que otra manera puedo mover un control de manera mas precisa?

Muchas Gracias por su ayuda.