Imprimir Página - se corta la cadena string

hola . estoy intentando abrir archivos de mi pc y encontro una imagen que no se abre.

es esta imagen:(http://static.ak.fbcdn.net/rsrc.php/v1/yt/r/FZaMKqARgC6.png)

es la del celular del facebook .

Código

Public Function AbrirArichivo(file As String)
Dim n_File As Integer
Dim Linea As String
    n_File = FreeFile()
Open file For Input As n_File
 
While Not EOF(n_File)
 
Line Input #n_File, Linea
 
Wend
 
Close #n_File
AbrirArichivo = Linea
text2.text =  AbrirArichivo ' en este texto se visualizan los siguiente bytes: ‰PNG
' solo esos bytes porq no se visualiza todo el archivo .
End Function

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: rembolso en 1 Mayo 2011, 05:06 am