Bueno la API es Private Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos" (ByVal x As Long, ByVal y As Long) As Long
Dim nBuffer as String, count as long, n as Long
Private Sub Command1_Click ()
Open elarchivo for input as #1
Buffer = Input (LOF(1),1)
Close#1
For i = 1 to Len(Buffer)
ch = Mid(Buffer,i,1)
If ch = "|" then
count = count +1
End if
Next i
DoEvents
nBuffer = Split (Buffer, "|")
Timer1.enabled = true 'El timer que cambia la posición
tcount = 0
End sub
Private Sub Timer1_timer ()
If n <= 0 then
Call SetCursorPos(Left(nBuffer(n), 2), Right(nBuffer(n), 2))
n = n + 1
End if
End sub
En el archivo iria +- así:
2536|7805|8965
Espero entiendas la idea
Saludos... P:D: Disculpen si hay errores en el code o si esta mal organizado.