'Bild laden (Format8bppIndexed)
    Dim bm1 As Bitmap = Bitmap.FromFile("C:\Test1.bmp", True)
    'Umwandeln in anderes Format (Format32bppRgb)
    Dim bm2 As Bitmap = Bitmap.FromHbitmap(bm1.GetHbitmap)
    'Grafik zum Bearbeiten des Bildes.
    Dim g As Graphics = Graphics.FromImage(bm2)
    '...
    Dim r = New Rectangle(0, 0, 50, 50)
    Dim bm = bm2.Clone(r, bm1.PixelFormat) 'FEHLER!
    bm.Save("C:\Test2.bmp", Imaging.ImageFormat.Bmp)