Event MoseMove()
  Dim Pos as 座標結構


  'Get Mouse Position
   GetMousePos(Pos)

  'Update Postion to label
   LabelPos.Text =Str(Pos.X) + Str(Pox.Y)    'Str為數字轉字串的函式示意名稱，請找對應的實際名稱

  Picture.x = Pos.X
  Picture.y = Pos.y
End Event

Public Class Form1 
    '滑鼠在Form1上的 x,y 
    Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove 
        MovePic(e.X, e.Y) 
    End Sub 
    '滑鼠在PictureBox1上的 x,y 會擋到 PictureBox1移動的處理 
    Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove 
        MovePic(e.X + PictureBox1.Left, e.Y + PictureBox1.Top) 
    End Sub 
    '移動陳述式 
    Sub MovePic(ByVal MoveX As Integer, ByVal MoveY As Integer) 
        Me.Text = "X:" & MoveX & ",Y:" & MoveY 
        PictureBox1.Top = MoveY 
        PictureBox1.Left = MoveX 
    End Sub 
End Class