[b4getws]

يمكن أن يصبح الكود كالتالي :

كود :

    Function Image_Effect(ByVal Image As Bitmap) As Bitmap
        Dim Img As New Bitmap(Image.Width, Image.Height)

        For I = 1 To 0 Step -1
            For W = I To Image.Width - 1 Step 2
                For H = I To Image.Height - 1 Step 2
                    Img.SetPixel(W, H, Color.FromArgb(Image.GetPixel(W, H).ToArgb))
                Next
            Next
        Next

        Return Img

End Function

كود :

Dim Image As Image = Image.FromFile(myPathImage)

        PB.Image = Image_Effect(Image)