Dim ifo As PixelFormat
ifo = PixelFormat.Format32bppArgb
.....
Do
'rechte Spalte von Pixels
Dim grs As Bitmap
Dim i1 As Bitmap = bpl.Image
Dim r1 As Rectangle = New Rectangle(bpl.Width - 1, 0, 1, bpl.Height)
grs = i1.Clone(r1, ifo)
 
'linker Block Pixels ohne rechte Spalte
Dim gbl As Bitmap
Dim r2 As Rectangle = New Rectangle(0, 0, bpl.Width - 1, bpl.Height)
gbl = i1.Clone(r2, ifo)
 
'ergänzen Block mit Spalte umgekehrt
Dim gr As Graphics = Graphics.FromImage(bpl.Image)
gr.DrawImage(grs, 0, 0)
gr.DrawImage(gbl, 1, 0)
Loop until Not animFlag

Salzburger