Pues la verdad no entendi nada, pero ya encontre una forma (la encontre provando)
y aqui las dejo por si lo quieren:
Código:
Dim estabax As Integer
Dim estabay As Integer
Private Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseDown
estabax = e.X
estabay = e.Y
End Sub
Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove
If estabax <> 0 Then
Me.Left = Me.Left + (e.X - estabax)
Me.Top = Me.Top + (e.Y - estabay)
End If
End Sub
Private Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseUp
estabax = 0
estabay = 0
End Sub
Y es muy sencillo, pero gracias de todas maneras.