Public Sub Main()
        Dim OrginalBMP As New Bitmap(1024, 768)
        Dim ErgebnisBMP As Bitmap
        Beschneiden(OrginalBMP, ErgebnisBMP)
        '...
        ErgebnisBMP.Dispose() '<<<<
 
    End Sub
 
    Public Sub Beschneiden(ByVal Bmp As Bitmap, ByRef ErgebnisBmp As Bitmap)
 
        '...
        '<<<<<<
        ErgebnisBmp = New Bitmap(NewWidth, NewHeight, _
          PixelFormat.Format32bppArgb)
        '<<<<<<
 
     '...
        g.Dispose()
    End Sub

Destiny of the Galaxy:
http://www.cendesia.de
http://www.facebook.com/Cendesia
- Weltraum RPG mit Vb.Net und DirectX9
- jetzt kostenlos die Pre-Alpha testen