Запись движения курсора в файл и воспроизведение

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Xcord = Cursor.Position.X
        Ycord = Cursor.Position.Y
        Dim Rec As New StreamWriter(TextBox1.Text, True, System.Text.Encoding.GetEncoding(1251))
        Rec.Write(Xcord & vbTab & Ycord & vbCrLf)
        Rec.Close()
    End Sub

   Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Dim Play As New StreamReader(TextBox1.Text, System.Text.Encoding.GetEncoding(1251))
        Ptxt = Play.ReadToEnd
        Xcord = Split(Ptxt)(0)
        Ycord = Split(Ptxt)(1) ' Это если было бы Rec.Write(Xcord & " " & Ycord & vbCrLf)
        Cursor.Position = New Point(Xcord, Ycord)
        Play.Close() ' Закрываем файл
    End Sub

Imports System
Imports System.IO
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim X, Y
    Dim Stp As Integer
    Dim Record(Stp) As Point
    Dim A, S, D, C
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        X = Cursor.Position.X
        Y = Cursor.Position.Y
        Dim f As New StreamWriter("D:Test1.txt", True, System.Text.Encoding.GetEncoding(1251))
        f.Write(X & " " & Y & vbCrLf)
        f.Close()
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Timer1.Stop()
        Timer2.Stop()
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Timer2.Start()
    End Sub
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim F_R As New StreamReader("D:Test1.txt", System.Text.Encoding.GetEncoding(1251)) ' Открываем файл D:test1.txt в стандартной кодировке 1251
        D = F_R.ReadToEnd ' Читаем в текстовое поле текст. ReadToEnd - это метод чтения файла полностью, есть метод ReadLine - чтение одной строчки
        F_R.Close() ' Закрываем файл
        For i = 0 To 4 Step 1
            S = Split(D, vbCrLf)(i)
            A = Split(S)(0)
            C = Split(S)(1)
            Cursor.Position = New Point(A, C)
        Next
    End Sub
 
    Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
        Label1.Text = Cursor.Position.X
        Label2.Text = Cursor.Position.Y
    End Sub
End Class

formatter.Serialize(stream, Record)

Public Class Form1
 
    Public X, Y As Point
    Public Pos As Point
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        My.Computer.FileSystem.WriteAllText("D:\1.txt", Pos.X & " " & Pos.Y & vbCrLf, True)
    End Sub
 
End Class

например при событии __форм::формлоад
pos = Cursor.Position

        Dim X As Integer = Cursor.Position.X.ToString
        Dim Y As Integer = Cursor.Position.Y.ToString
        My.Computer.FileSystem.WriteAllText("D:\1.txt", X & " " & Y & vbCrLf, True)

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim Xcord, Ycord
        Xcord = Cursor.Position.X
        Ycord = Cursor.Position.Y
        My.Computer.FileSystem.WriteAllText("D:\1.txt", Xcord & vbTab & Ycord & vbCrLf, True)
    End Sub

dim m() as string = io.file.readalllines("D:\1.txt")
cursor.position.x = cint(m(0))
cursor.position.y = cint(m(1))

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim MassX(1001), MassY(1001)
        For i = 0 To 1000
            Dim m() As String = IO.File.ReadAllLines("D:\1.txt")
            MassX(i) = CInt(m(0))
            MassY(i) = CInt(m(1))
            Cursor.Position = New Point(MassX(i), MassY(i))
        Next
    End Sub

Dim m() As String = IO.File.ReadAllLines("D:\1.txt")

  
Dim m() As String = IO.File.ReadAllLines("D:\1.txt")
For i = 0 To 1000
            Dim m() As String = IO.File.ReadAllLines("D:\1.txt")
            MassX(i) = CInt(m(i))
            MassY(i) = CInt(m(i+1))
            Cursor.Position = New Point(MassX(i), MassY(i))
        Next

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim m() As String = IO.File.ReadAllLines("D:\1.txt")
        For i = 0 To 1000
            MassX(i) = CInt(m(i))
            MassY(i) = CInt(m(i + 1))
            Cursor.Position = New Point(MassX(i), MassY(i))
        Next
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Xcord = Cursor.Position.X
        Ycord = Cursor.Position.Y
        My.Computer.FileSystem.WriteAllText("D:\1.txt", Xcord & vbCrLf & Ycord & vbCrLf, True)
    End Sub

Xcord & vbCrLf & Ycord & vbCrLf

Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Dim m() As String = IO.File.ReadAllLines("D:\1.txt")
        For i = 0 To 1000
            MassX(i) = CInt(m(i))
            MassY(i) = CInt(m(i + 1))
            Cursor.Position = New Point(MassX(i), MassY(i))
Threading.Thread.Sleep(100) '//500
        Next
    End Sub