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