Private Sub Refresh_Click()
Dim x As Integer
Dim y As Integer
 
Dim lngFarbe As Long
Dim bytArr() As Byte
Dim lngByte As Long
Dim strFile As String
Dim Grau As Long
strFile = "C:\Testmuster.usm" '//  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
            Grau = bytArr(lngByte)
 
            '// Farbe setzen
            Grafikausgabe.Picture1.PSet (y, 512 - x), RGB(Grau, Grau, Grau)
 
            '// die zwei noch unbenutzten Bytes überspringen
            lngByte = lngByte + 3
 
         Next y
      Next x
   End If
   Text1.Text = ("Bild refreshed!")
End Sub