Dim i$, Cont&
i = LoadResData(D, "TYPE"
Open "ruta y nombre del archivo ejecutable(librerias,controles,exes,etc" For Binary Access Write As #1
For Cont = 1 To LenB(i)
Put #1, Cont, AscB(MidB$(i, Cont, 1))
DoEvents
Next Cont
Close #1
Valora esta respuesta
0
Comentar
Archivo TXT Sql
como hago para insertar un gif animado en visual b