VB.NET 控制滑鼠的移动

Imports System.Collections.Generic
Imports System.Drawing
Imports System.Runtime.InteropServices

'模拟控件鼠标，网络上VB.NET的源码太少，希望有人能用上。

'窗体上任意拉出两个标签控件，一个按钮控件
'测试环境 winXP + .NET 2008 
'其它环境未测试过
Public Class Form1
    <DllImport("User32")> _
    Public Shared Sub SetCursorPos(ByVal x As Integer, ByVal y As Integer)
    End Sub
    '<DllImport("User32")> _
    'Public Shared Function GetCursorPos(ByRef lpPoint As Point) As Boolean
    'End Function
    Private Mouse1 As New Point(1, 1)
    Private Mouse2 As New Point(1, 1)
    Private p As New Point(1, 1)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Show()
        Me.AcceptButton = Button1
        Button1.Text = "停止测试"
        Timer1.Interval = 2000
        Mouse1 = Label1.P