Dim formPosition As Point
    Dim mouseAction As Boolean
    Private Sub Form_MouseDown(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseDown
        formPosition = New Point(Cursor.Position.X - Location.X, Cursor.Position.Y - Location.Y)
        mouseAction = True
    End Sub
    Private Sub Form_MouseMove(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseMove
        If mouseAction = True Then
            Location = New Point(Cursor.Position.X - formPosition.X, Cursor.Position.Y - formPosition.Y)
        End If
    End Sub
    Private Sub Form_MouseUp(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.MouseUp
        mouseAction = False
End Sub

Public Class Form1

    Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Integer, ByVal dx As Integer, ByVal dy As Integer, ByVal cButtons As Integer, ByVal dwExtraInfo As Integer)
    Private Const MOUSEEVENTF_LEFTDOWN = &H2
    Private Const MOUSEEVENTF_LEFTUP = &H4
    Private Const MOUSEEVENTF_RIGHTDOWN = &H8
    Private Const MOUSEEVENTF_RIGHTUP = &H10

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.KeyPreview = True
    End Sub
    Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown
        If e.KeyCode.ToString = "F1" Then
            Me.KeyPreview = True

            TextBoxX.Text = System.Windows.Forms.Cursor.Position.X
            TextBoxY.Text = System.Windows.Forms.Cursor.Position.Y
            ListBoxX.Items.Add(TextBoxX.Text)
            ListBoxY.Items.Add(TextBoxY.Text)
        End If
        If e.KeyCode.ToString = "F2" Then
            ListBoxX.SelectedIndex = 0
            ListBoxY.SelectedIndex = 0
            Timer1.Start()
        End If
        If e.KeyCode.ToString = "F3" Then
            ListBoxX.Items.Clear()
            ListBoxY.Items.Clear()
            Timer1.Stop()
        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If ListBoxX.SelectedIndex = ListBoxY.Items.Count - 1 = True Then
            Timer1.Enabled = False
        Else
            ListBoxX.SelectedIndex = ListBoxX.SelectedIndex + 1
            ListBoxY.SelectedIndex = ListBoxY.SelectedIndex + 1

            Cursor.Position = New Point(ListBoxX.SelectedItem, ListBoxY.SelectedItem)
            mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0)
            mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0)

        End If
    End Sub
End Class

Clipboard.SetText(TextBox1.Text & "." & TextBox2.Text)