Private Sub btnPlay_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnPlay.Click
 
        btnRecord.Enabled = False
        Dim teilen
        Dim FiStr As FileStream = New FileStream("test.txt", FileMode.Open)
        Dim StrRe As StreamReader = New StreamReader(FiStr)
 
        Do Until StrRe.Peek() = -1          'zeilenweise Lesen
            teilen = Split(StrRe.ReadLine, " ") 'Teiler zwischen den Koordinaten
            'teilen(0) => x-Koordinate
            'teilen(1) => y-Koordinate
            mouse_event(MOUSEEVENTF_ABSOLUTE + MOUSEEVENTF_LEFTDOWN + _
              MOUSEEVENTF_LEFTUP + MOUSEEVENTF_MOVE, _
         teilen(0) / Screen.PrimaryScreen.Bounds.Width * 65535, _
         teilen(1) / Screen.PrimaryScreen.Bounds.Height * 65535, 0, 0)
            Threading.Thread.Sleep(50)
        Loop
        StrRe.Close()
        btnRecord.Enabled = True
    End Sub

Die Intelligenz verfolgt mich. Aber ich bin schneller!!