Dim bm As New Bitmap("F:\Test\zmachine.bmp")
        Dim bm1 As New Bitmap(bm.Width / 5, bm.Height / 5, _
          Imaging.PixelFormat.Format16bppRgb565)
        Dim gr As Graphics = Graphics.FromImage(bm1)
        gr.DrawImage(bm, New Rectangle(0, 0, bm1.Width, bm1.Height), 0, 0, _
          bm.Width, bm.Height, GraphicsUnit.Pixel)
        bm1.Save("F:\Test\zmklein.bmp", System.Drawing.Imaging.ImageFormat.Bmp)

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist