Visual Basic para Aplicaciones - mover cajas de texto y otros

Alguien sabe como mover cajas de texto,por ejemplo al pulsar y arrastrar en el centro de la caja text.
Y a demas alguien sabe como al pasar por el borde de un text se puede cambiar el tamaño de este como si de un form se tratara, a voluntad.
Si alguien tiene algun codigo se lo agradeceria.Muchas gracias.

Mira lo que tengo es como mover un shape, pero debe se algo parecido el mover una caja de texto

Public presiona As Boolean
Dim distx As Single
Dim disty As Single

Function PresionaCuadro(cuadro As Shape, x As Single, y As Single) As Boolean
If x >= cuadro.Left And x <= cuadro.Left + cuadro.Width And _
y >= cuadro.Top And y <= cuadro.Top + cuadro.Height Then
PresionaCuadro = True
End If
End Function

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If PresionaCuadro(Shape1, x, y) Then
presiona = True
distx = x - Shape1.Left
disty = y - Shape1.Top
End If
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
If presiona = True Then
Shape1.Left = x - distx
Shape1.Top = y - disty
End If
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
presiona = False
End Sub


bueno esto logra moverlo con el raton, pero estoy seguro que hay alguna forma mas optima, si no me equivoco existe algo llamado drag and drop que debe funcionar para esto.
si te sirve me escribes