[VB6] Lettura file byte a byte

[Socket2000]

  Dim xFile As Integer
  Dim myByte As Byte
  
  xFile = FreeFile
  Open TuoFile$ For Binary As xFile
  Do While Not EOF(xFile)
    Get #xFile, , myByte
    ' Qui fai quel che vuoi del tuo byte
  Loop
  Close xFile