Dim w, h As Integer
 
w = Math.Floor(Math.Sqrt(PixelAnzahl))
h = Math.Floor(PixelAnzahl/ w)
h = h + PixelAnzahl - (w * h)
 
Dim a As New Bitmap(w, h)

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