Dim Array(1024, 1024) As UInteger
        Dim Data As New FileStream("C:\magdata\f01.img", FileMode.Open)
        Dim Reader As New BinaryReader(Data)
 
        Dim Bild As Bitmap = New Bitmap(1024, 1024)
        Dim xcolor As New Color
        For i As Integer = 0 To 1023
            For j As Integer = 0 To 1023
                Array(i, j) = Reader.ReadByte()
 
                'Zahlenwertbereich einer Farbe zuordnen
 
                Bild.SetPixel(i, j, xcolor)
            Next j
        Next i
 
        Reader.Close()
        Data.Close()
 
 
 
        PictureBox1.Image = bild