[COLOR=blue]Dim[/COLOR] cloneRect [COLOR=blue]As[/COLOR] [COLOR=blue]New[/COLOR] [COLOR=#2b91af]Rectangle[/COLOR](0, 0, bmp.Width, bmp.Height
[COLOR=blue]Dim[/COLOR] format [COLOR=blue]As[/COLOR] [COLOR=#2b91af]PixelFormat[/COLOR] = [COLOR=#2b91af]PixelFormat[/COLOR].Format8bppIndexed
[COLOR=blue]Dim[/COLOR] clonebmp [COLOR=blue]As[/COLOR] [COLOR=#2b91af]Bitmap[/COLOR] = bmp.Clone(cloneRect, format)
clonebmp .Save(LastFileName, [COLOR=#2b91af]ImageFormat[/COLOR].Png)
bmp.Dispose()
clonebmp.Dispose()