Я сделал этот код для вас, проверьте ответ:
Private Sub Form1_MouseMove(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
Label1.Text = e.X.ToString
Label2.Text = e.Y.ToString
Me.TextBox1.Location = New System.Drawing.Point(e.X + 10, e.Y + 10)
End Sub