' Hier lädst du BmDaten
 
Dim pixcount As Integer = BmDaten.Length / 3
 
Dim w, h As Integer
 
w = Math.Floor(Math.Sqrt(pixcount))
h = Math.Floor(pixcount/ w)
h = h + pixcount - (w * h)
 
Dim PinHandle As GCHandle = GCHandle.Alloc(BmDaten, GCHandleType.Pinned)
Dim PinPointer As IntPtr = PinHandle.AddrOfPinnedObject()
 
 
Using bmp As New Bitmap(w, h, w * 3, Imaging.PixelFormat.Format24bppRgb, _
  PinPointer)

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008