Dim fs As New IO.FileStream("C:\Windows\mib.bin", IO.FileMode.Open, _
          IO.FileAccess.Read, IO.FileShare.Read)
        Dim bytes(1023) As Byte
        Dim bytesRead As Integer
        Do
            bytesRead = fs.Read(bytes, 0, 1024)
            If bytesRead > 0 Then
                ' was immer...
            End If
        Loop While bytesRead > 0

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist