Dim fsi As New FileStream("F:\Test\test.bmp", FileMode.Open, _
          FileAccess.Read, FileShare.Read)
 
        ' Letztes Byte lesen
        Dim lastByte(0) As Byte
 
        fsi.Position = fsi.Length - 1
        fsi.Read(lastByte, 0, 1)
 
        ' Alle bytes lesen
        Dim picBytes(fsi.Length - 1) As Byte
 
        fsi.Position = 0
        fsi.Read(picBytes, 0, fsi.Length)
 
        fsi.Close()

________
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