[VB6] Lettura file byte a byte

[Socket2000]

  xFile = FreeFile
  Open TuoFile$ For Binary As xFile
  for x=1 to ubound(mybyte)
    put #xFile, , myByte(x)
  next x
  Close xFile

Attenzione che l'open in binary NON AZZERA il vecchio contenuto del file...