Imports System.Drawing.Imaging
Imports System.Runtime.InteropServices
Public Class Form1
    Dim BmDaten(29999) As Byte                             'Daten für 10000 
    ' Pixel a 3 Byte
    Dim pixcount As Int32 = BmDaten.Length \ 3             'Pixelzahl
    Dim sl As Int32 = Int(Math.Sqrt(pixcount))             'Seitenlänge des 
    ' Bildes
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        For i As Int32 = 0 To 29997 Step 3          'Alle 30000 Pixel auf Rot 
        ' setzen
            BmDaten(i + 2) = 255         'R-Wert    (Ablageformat im Array 
            ' B,G,R)
        Next
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim PinHandle As GCHandle = GCHandle.Alloc(BmDaten, GCHandleType.Pinned)
        Dim PinPointer As IntPtr = PinHandle.AddrOfPinnedObject()
        Using bmp As New Bitmap(sl, sl, sl * 3, PixelFormat.Format24bppRgb, _
          PinPointer)
            bmp.Save("C:\W-Intern\Testbild.png", ImageFormat.Png)
            'PictureBox1.Image = bmp.Clone   'oder als Kontrolle anzeigen
        End Using
        PinHandle.Free()
    End Sub
End Class