Microsoft richtext control 6.0 creo
Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.
Mostrar Mensajes Menú
Open ".\dump.txt" for binary as #1
put #1, , null
put #1, , null
put #1, , null
put #1, , null
put #1, , null
put #1, , null
close
0x000000 0100 0100 0100 0100 0100 0100
dim i as long
dim buff as string
open "c:\huevo.txt" for input as #1
open "c:\huevo1.txt for output as #2
do until eof(1) 'bucle hasta q termine el archivo
doevents 'para q la aplicacion no se cuelgue en el bucle
line input #1, buff
print #1, "<contact>" & buff & "</contact> 'no hace falta un vbcrlf xq cuando haces print escribe una linea entera.
loop