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( _
            "C:\Documents and Settings\All Users\Documents\My Music\music.bmp", _
            True)

        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.R, 0, 0)
                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

' 导入命名空间
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class ImageProperty
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

public class Form1
  Inherits System.Windows.Forms.Form

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim curImage As Image = Image.FromFile("yourfile.jpg")

        curImage.RotateFlip(RotateFlipType.RotateNoneFlipXY)
        e.Graphics.DrawImage(curImage, New Rectangle(0, 0, 100, 100))
        Console.WriteLine("Size:" + curImage.Size.ToString)
        Console.WriteLine(" RawFormat:" + curImage.RawFormat.ToString)
        Console.WriteLine(" Vertical Resolution:" + curImage.VerticalResolution.ToString)
        Console.WriteLine(" Horizontal Resolution:" + curImage.HorizontalResolution.ToString)
        Console.WriteLine(" PixelFormat:" + curImage.PixelFormat.ToString)
        Console.WriteLine(" Flags:" + curImage.Flags.ToString)
        
  End Sub

  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

  End Sub

End Class