VB.net 圖片隨著滑鼠移動，求高手！?

假設有 TextBox1和Button1

Dim xm, ym As Integer

Dim xc, yc As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

PictureBox1.BringToFront()

Me.Location = New Point(0, 0)

End Sub

Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove, TextBox1.MouseMove, Button1.MouseMove

xm = e.X

ym = e.Y

xc = CType(sender, Object).Location.x

yc = CType(sender, Object).Location.y

PictureBox1.Location = New Point(xc + xm + 10, yc + ym - 30)

End Sub

感謝終結者大大

另外，如果寫在Form1_MouseMove，滑鼠移動到其他控制項上，圖片就不會跟著移動了，如何解呢？