Option Explicit
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" ( _
  Destination As Any, Source As Any, ByVal Length As Long)
 
 
Private Sub Form_Activate()
 
Dim x As Integer
Dim y As Integer
 
Dim lngFarbe As Long
Dim bytArr() As Byte
Dim lngByte As Long
Dim strFile As String
strFile = "C:\test.bin" '//  Datei angeben
 
   '// Datei in ByteArray lesen
   If Dir$(strFile, vbNormal) <> "" Then
      bytArr = byt_Readall(strFile)
      '// Start festlegen (in welchem der drei Bytes steht die Farbe)
      lngByte = 0
 
      For x = 0 To 511
         For y = 0 To 511
 
            '// das entsprechende Byte in einen Long kopieren
            CopyMemory lngFarbe, bytArr(lngByte), 1
            '// ??Konvertierung??
            '//
            '// Farbe setzen
            Me.PSet (x, y), lngFarbe
            '// die zwei noch unbenutzten Bytes überspringen
            lngByte = lngByte + 3
 
         Next y
      Next x
   End If
End Sub

Public Function byt_Readall(ByRef strFile As String) As Byte()
'// Datei einlesen und Bytearray zurückgeben
Dim F As Integer
Dim bytInhalt() As Byte
 
 
   F = FreeFile
   Open strFile For Binary As #F
   ReDim bytInhalt(LOF(F))
   Get #F, , bytInhalt
   Close #F
 
   byt_Readall = bytInhalt
End Function