'あまり面白くないねコレ。10/10 



Public Class Form1



    Dim image1 As Bitmap



    Private Sub Button1_Click(ByVal sender As System.Object, _

        ByVal e As System.EventArgs) Handles Button1.Click



        Try

            ' Retrieve the image. 

            image1 = New Bitmap( _

                My.Resources.無題)



            Dim x, y As Integer



            ' Loop through the images pixels to reset color. 

            For x = 0 To image1.Width - 1

                For y = 0 To image1.Height - 1

                    Dim pixelColor As Color = image1.GetPixel(x, y)

                    Dim newColor As Color = _

                        Color.FromArgb(pixelColor.G, 50, 50)

                    image1.SetPixel(x, y, newColor)

                Next

            Next



            ' Set the PictureBox to display the image. 

            PictureBox1.Image = image1



            ' Display the pixel format in Label1. 

            Label1.Text = "Pixel format: " + image1.PixelFormat.ToString()



        Catch ex As ArgumentException

            MessageBox.Show("There was an error." _

                & "Check the path to the image file.")

        End Try

    End Sub





    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        PictureBox1.Image = My.Resources.無題

    End Sub



End Class