Dim img As New ImageList _
   With {.ImageSize = New Size(256, 256)}  'Imagelist erstellen
 
 'GDI-Zeichengeräte erstellen
Using bmp As New Bitmap(256, 256, Imaging.PixelFormat.Format16bppRgb555),
      gr As Graphics = Graphics.FromImage(bmp), _
      redpen As New Pen(Color.Red, 2), _
      bluebrush As New SolidBrush(Color.DarkBlue), _
      textbrush As New SolidBrush(Color.White)
 
   'Rechteck: Location und Size festlegen
   Dim myrectangle As New Rectangle(20, 40, bmp.Width - 40, bmp.Height - 80)
   Dim textrectangle As New Rectangle(40, 60, bmp.Width - 80, bmp.Height - 120)
 
   With gr  
     .Clear(Color.Green) 'Bitmap mit Hintergrundfarbe füllen
 
     .TranslateTransform(bmp.Width \ 2, bmp.Height \ 2)
     .RotateTransform(10)       'Dreh-Winkel
     .TranslateTransform(-bmp.Width \ 2, -bmp.Height \ 2)
 
     .FillRectangle(bluebrush, myrectangle) 'Rechteck mit Farbe füllen
     .DrawRectangle(redpen, myrectangle) 'Rand um das Rechteck zeichnen
 
     .TranslateTransform(bmp.Width \ 2, bmp.Height \ 2)
     .RotateTransform(-10)       'zurück drehen
     .TranslateTransform(-bmp.Width \ 2, -bmp.Height \ 2)
 
     .DrawString("Caddy's (erstes?) Rechteck" & vbCrLf & "powered by MaX", _
           New Font("Arial", 24, FontStyle.Regular, GraphicsUnit.Pixel), _
           textbrush, textrectangle)
   End With
 
   img.Images.Add("Rectangle.bmp", _
        CType(bmp.Clone, Image)) 'in Imagelist eintragen
 
End Using 'ersetzt den Dispose-Aufruf für alle Using-Objekte