Dim X As Integer, Y As Integer  'Koordinaten für die Pixel
        Dim lZufall As Long  ' Zufallszahl für die Stelle in der  Datei
        Dim F As Integer    'Dateicounter
        Dim sValue As String    'Farbwert aus der Datei
        Dim iValue  As Integer
 
        F = FreeFile
       Open sDateipfad For Binary As #F
 
        For Y = 0 To 22
            For X = 0 To 22
                Randomize
                lZufall = Int((lFileLength * Rnd) + 1)
                Seek #F, lZufall
 
                ' 2 Bytes auslesen
                sValue = Space$(2)
                Get #F, , sValue
 
                iValue = V2Int(sValue, 15)
 
                Picture1.Line (80 * X, 80 * Y)-(80 + (80 * X), 80 + (80 * Y)), _
                  QBColor(iValue), BF
            Next X
        Next Y
 
        MsgBox (iValue)
 
        Close #F