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