VB.Net by API/System.Drawing/Bitmap

Bitmap.FromFile(String fileName)

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class SetResolutionBitmap

  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 newImage As Bitmap = Bitmap.FromFile("yourfile.jpg")
       Dim hDpi As Single = 90
       Dim vDpi As Single = 90
       newImage.SetResolution(hDpi, vDpi)
       
       e.Graphics.DrawImage(newImage, Me.ClientRectangle)
 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

 </source>

Bitmap.GetPixel

<source lang="vbnet">

Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
    Dim form1 As Form1 = new Form1
    Application.Run(form1)
 End Sub
 

End Class

Public Class Form1

 Inherits System.Windows.Forms.Form
 Public Sub New()
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.Text = "Form1"
 End Sub

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 End Sub
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
   Dim bmp As Bitmap = New Bitmap("figure2.bmp")
   Dim c As Color
   Dim x, y As Int32
   e.Graphics.DrawImage(bmp, 10, 30)
   For x = 0 To bmp.Width - 1
     For y = 0 To bmp.Height - 1
       c = bmp.GetPixel(x, y)
       c = Color.FromArgb(c.ToArgb() + 100)
       bmp.SetPixel(x, y, c)
     Next
   Next
   e.Graphics.DrawImage(bmp, 150, 30)
 End Sub

End Class

 </source>

Bitmap.GetPixel(Int x, Int y)

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim bm As New Bitmap("figure2.bmp")
       Dim source_bm As New Bitmap(bm)
   
       bm.Dispose()
       picSource.Image = source_bm
       picDest.Size = picSource.Size
       Dim dest_bm As New Bitmap(source_bm)
       For y As Integer = 0 To dest_bm.Height - 1
           For x As Integer = 0 To dest_bm.Width - 1
               Dim clr As Color = dest_bm.GetPixel(x, y)
               clr = Color.FromArgb(255,255 - clr.R,255 - clr.G,255 - clr.B)
               dest_bm.SetPixel(x, y, clr)
           Next x
       Next y
       picDest.Image = dest_bm
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
       Me.picSource = New System.Windows.Forms.PictureBox
       Me.picDest = New System.Windows.Forms.PictureBox
       Me.SplitContainer1.Panel1.SuspendLayout()
       Me.SplitContainer1.Panel2.SuspendLayout()
       Me.SplitContainer1.SuspendLayout()
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).BeginInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "SplitContainer1
       "
       Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.SplitContainer1.Location = New System.Drawing.Point(0, 24)
       Me.SplitContainer1.Name = "SplitContainer1"
       "
       "SplitContainer1.Panel1
       "
       Me.SplitContainer1.Panel1.AutoScroll = True
       Me.SplitContainer1.Panel1.Controls.Add(Me.picSource)
       "
       "SplitContainer1.Panel2
       "
       Me.SplitContainer1.Panel2.AutoScroll = True
       Me.SplitContainer1.Panel2.Controls.Add(Me.picDest)
       Me.SplitContainer1.Size = New System.Drawing.Size(522, 249)
       Me.SplitContainer1.SplitterDistance = 270
       Me.SplitContainer1.TabIndex = 1
       Me.SplitContainer1.Text = "SplitContainer1"
       "
       "picSource
       "
       Me.picSource.AutoSize = True
       Me.picSource.Location = New System.Drawing.Point(0, 0)
       Me.picSource.Name = "picSource"
       Me.picSource.Size = New System.Drawing.Size(208, 184)
       Me.picSource.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picSource.TabIndex = 0
       Me.picSource.TabStop = False
       "
       "picDest
       "
       Me.picDest.AutoSize = True
       Me.picDest.Location = New System.Drawing.Point(0, 0)
       Me.picDest.Name = "picDest"
       Me.picDest.Size = New System.Drawing.Size(184, 184)
       Me.picDest.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picDest.TabIndex = 1
       Me.picDest.TabStop = False
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(522, 273)
       Me.Controls.Add(Me.SplitContainer1)
       Me.Name = "Form1"
       Me.Text = "InvertImageGetSetPixels"
       Me.SplitContainer1.Panel1.ResumeLayout(False)
       Me.SplitContainer1.Panel1.PerformLayout()
       Me.SplitContainer1.Panel2.ResumeLayout(False)
       Me.SplitContainer1.Panel2.PerformLayout()
       Me.SplitContainer1.ResumeLayout(False)
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).EndInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
   Friend WithEvents picSource As System.Windows.Forms.PictureBox
   Friend WithEvents picDest As System.Windows.Forms.PictureBox

End Class

 </source>

Bitmap.Height

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
   Dim Bmp As Bitmap = New Bitmap("figure2.bmp")
   Console.WriteLine(Bmp.Height.ToString())
   Console.WriteLine(Bmp.Width.ToString())
   Console.WriteLine(Bmp.VerticalResolution.ToString())
   Console.WriteLine(Bmp.HorizontalResolution.ToString())
   Console.WriteLine(Bmp.PixelFormat.ToString())
   Console.WriteLine(Bmp.Size.ToString())
   Console.WriteLine(Bmp.PhysicalDimension.ToString())
 End Sub
 

End Class

 </source>

Bitmap.MakeTransparent

<source lang="vbnet"> Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D public class MakeTransparentBitmap

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

End class Public Class Form1

   Inherits System.Windows.Forms.Form
   Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
       Me.Close()
   End Sub
   Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
       Dim bm As Bitmap = new Bitmap("yourfile.jpg")
       bm.MakeTransparent(bm.GetPixel(1, 1))
       e.Graphics.DrawImage(bm, 0, 0)
   End Sub

End Class

 </source>

Bitmap.Palette

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
   Dim cp As ColorPalette
   Dim bmp As Bitmap = New Bitmap("figure2.bmp")
   cp = bmp.Palette
   Dim c As Color
   For Each c In cp.Entries
     Console.WriteLine( c.ToString())
   Next
 End Sub
 

End Class

 </source>

Bitmap.PhysicalDimension

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
   Dim Bmp As Bitmap = New Bitmap("figure2.bmp")
   Console.WriteLine(Bmp.Height.ToString())
   Console.WriteLine(Bmp.Width.ToString())
   Console.WriteLine(Bmp.VerticalResolution.ToString())
   Console.WriteLine(Bmp.HorizontalResolution.ToString())
   Console.WriteLine(Bmp.PixelFormat.ToString())
   Console.WriteLine(Bmp.Size.ToString())
   Console.WriteLine(Bmp.PhysicalDimension.ToString())
 End Sub
 

End Class

 </source>

Bitmap.PixelFormat

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
   Dim Bmp As Bitmap = New Bitmap("figure2.bmp")
   Console.WriteLine(Bmp.Height.ToString())
   Console.WriteLine(Bmp.Width.ToString())
   Console.WriteLine(Bmp.VerticalResolution.ToString())
   Console.WriteLine(Bmp.HorizontalResolution.ToString())
   Console.WriteLine(Bmp.PixelFormat.ToString())
   Console.WriteLine(Bmp.Size.ToString())
   Console.WriteLine(Bmp.PhysicalDimension.ToString())
 End Sub
 

End Class

 </source>

Bitmap.Save(String fileName, ImageFormat if)

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ruponentModel Imports System.Drawing.Imaging Imports System.Drawing Public Class MainClass

  Shared Sub Main()
       Dim bm As New Bitmap(256, 256)
       " Draw on it.
       Dim gr As Graphics = Graphics.FromImage(bm)
       gr.Clear(Color.White)
       gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)
       gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)
       gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)
       " Save the result as a JPEG file.
       bm.Save("test.gif", ImageFormat.Gif)
  End Sub 

End Class

 </source>

Bitmap.SetPixel(Int x, Int y, Color clr)

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim bm As New Bitmap("figure2.bmp")
       Dim source_bm As New Bitmap(bm)
   
       bm.Dispose()
       picSource.Image = source_bm
       picDest.Size = picSource.Size
       Dim dest_bm As New Bitmap(source_bm)
       For y As Integer = 0 To dest_bm.Height - 1
           For x As Integer = 0 To dest_bm.Width - 1
               Dim clr As Color = dest_bm.GetPixel(x, y)
               clr = Color.FromArgb(255,255 - clr.R,255 - clr.G,255 - clr.B)
               dest_bm.SetPixel(x, y, clr)
           Next x
       Next y
       picDest.Image = dest_bm
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
       Me.picSource = New System.Windows.Forms.PictureBox
       Me.picDest = New System.Windows.Forms.PictureBox
       Me.SplitContainer1.Panel1.SuspendLayout()
       Me.SplitContainer1.Panel2.SuspendLayout()
       Me.SplitContainer1.SuspendLayout()
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).BeginInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "SplitContainer1
       "
       Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.SplitContainer1.Location = New System.Drawing.Point(0, 24)
       Me.SplitContainer1.Name = "SplitContainer1"
       "
       "SplitContainer1.Panel1
       "
       Me.SplitContainer1.Panel1.AutoScroll = True
       Me.SplitContainer1.Panel1.Controls.Add(Me.picSource)
       "
       "SplitContainer1.Panel2
       "
       Me.SplitContainer1.Panel2.AutoScroll = True
       Me.SplitContainer1.Panel2.Controls.Add(Me.picDest)
       Me.SplitContainer1.Size = New System.Drawing.Size(522, 249)
       Me.SplitContainer1.SplitterDistance = 270
       Me.SplitContainer1.TabIndex = 1
       Me.SplitContainer1.Text = "SplitContainer1"
       "
       "picSource
       "
       Me.picSource.AutoSize = True
       Me.picSource.Location = New System.Drawing.Point(0, 0)
       Me.picSource.Name = "picSource"
       Me.picSource.Size = New System.Drawing.Size(208, 184)
       Me.picSource.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picSource.TabIndex = 0
       Me.picSource.TabStop = False
       "
       "picDest
       "
       Me.picDest.AutoSize = True
       Me.picDest.Location = New System.Drawing.Point(0, 0)
       Me.picDest.Name = "picDest"
       Me.picDest.Size = New System.Drawing.Size(184, 184)
       Me.picDest.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picDest.TabIndex = 1
       Me.picDest.TabStop = False
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(522, 273)
       Me.Controls.Add(Me.SplitContainer1)
       Me.Name = "Form1"
       Me.Text = "InvertImageGetSetPixels"
       Me.SplitContainer1.Panel1.ResumeLayout(False)
       Me.SplitContainer1.Panel1.PerformLayout()
       Me.SplitContainer1.Panel2.ResumeLayout(False)
       Me.SplitContainer1.Panel2.PerformLayout()
       Me.SplitContainer1.ResumeLayout(False)
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).EndInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
   Friend WithEvents picSource As System.Windows.Forms.PictureBox
   Friend WithEvents picDest As System.Windows.Forms.PictureBox

End Class

 </source>

Bitmap.SetResolution(Single h, Single v)

<source lang="vbnet"> Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Windows.Forms public class SetResolutionBitmap

  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 newImage As Bitmap = Bitmap.FromFile("yourfile.jpg")
       Dim hDpi As Single = 90
       Dim vDpi As Single = 90
       newImage.SetResolution(hDpi, vDpi)
       
       e.Graphics.DrawImage(newImage, Me.ClientRectangle)
 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

 </source>

Bitmap.VerticalResolution

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
   Dim Bmp As Bitmap = New Bitmap("figure2.bmp")
   Console.WriteLine(Bmp.Height.ToString())
   Console.WriteLine(Bmp.Width.ToString())
   Console.WriteLine(Bmp.VerticalResolution.ToString())
   Console.WriteLine(Bmp.HorizontalResolution.ToString())
   Console.WriteLine(Bmp.PixelFormat.ToString())
   Console.WriteLine(Bmp.Size.ToString())
   Console.WriteLine(Bmp.PhysicalDimension.ToString())
 End Sub
 

End Class

 </source>

Bitmap.Width

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim bm As New Bitmap("figure2.bmp")
       Dim source_bm As New Bitmap(bm)
   
       bm.Dispose()
       picSource.Image = source_bm
       picDest.Size = picSource.Size
       Dim dest_bm As New Bitmap(source_bm)
       For y As Integer = 0 To dest_bm.Height - 1
           For x As Integer = 0 To dest_bm.Width - 1
               Dim clr As Color = dest_bm.GetPixel(x, y)
               clr = Color.FromArgb(255,255 - clr.R,255 - clr.G,255 - clr.B)
               dest_bm.SetPixel(x, y, clr)
           Next x
       Next y
       picDest.Image = dest_bm
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
       Me.picSource = New System.Windows.Forms.PictureBox
       Me.picDest = New System.Windows.Forms.PictureBox
       Me.SplitContainer1.Panel1.SuspendLayout()
       Me.SplitContainer1.Panel2.SuspendLayout()
       Me.SplitContainer1.SuspendLayout()
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).BeginInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "SplitContainer1
       "
       Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.SplitContainer1.Location = New System.Drawing.Point(0, 24)
       Me.SplitContainer1.Name = "SplitContainer1"
       "
       "SplitContainer1.Panel1
       "
       Me.SplitContainer1.Panel1.AutoScroll = True
       Me.SplitContainer1.Panel1.Controls.Add(Me.picSource)
       "
       "SplitContainer1.Panel2
       "
       Me.SplitContainer1.Panel2.AutoScroll = True
       Me.SplitContainer1.Panel2.Controls.Add(Me.picDest)
       Me.SplitContainer1.Size = New System.Drawing.Size(522, 249)
       Me.SplitContainer1.SplitterDistance = 270
       Me.SplitContainer1.TabIndex = 1
       Me.SplitContainer1.Text = "SplitContainer1"
       "
       "picSource
       "
       Me.picSource.AutoSize = True
       Me.picSource.Location = New System.Drawing.Point(0, 0)
       Me.picSource.Name = "picSource"
       Me.picSource.Size = New System.Drawing.Size(208, 184)
       Me.picSource.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picSource.TabIndex = 0
       Me.picSource.TabStop = False
       "
       "picDest
       "
       Me.picDest.AutoSize = True
       Me.picDest.Location = New System.Drawing.Point(0, 0)
       Me.picDest.Name = "picDest"
       Me.picDest.Size = New System.Drawing.Size(184, 184)
       Me.picDest.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picDest.TabIndex = 1
       Me.picDest.TabStop = False
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(522, 273)
       Me.Controls.Add(Me.SplitContainer1)
       Me.Name = "Form1"
       Me.Text = "InvertImageGetSetPixels"
       Me.SplitContainer1.Panel1.ResumeLayout(False)
       Me.SplitContainer1.Panel1.PerformLayout()
       Me.SplitContainer1.Panel2.ResumeLayout(False)
       Me.SplitContainer1.Panel2.PerformLayout()
       Me.SplitContainer1.ResumeLayout(False)
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).EndInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
   Friend WithEvents picSource As System.Windows.Forms.PictureBox
   Friend WithEvents picDest As System.Windows.Forms.PictureBox

End Class

 </source>

New Bitmap

<source lang="vbnet"> Imports System.Drawing.Drawing2D Imports System Imports System.Drawing.Text Imports System.Drawing Imports System.Windows.Forms Imports System.Math Public Class MainClass

  Shared Sub Main()
      Dim form1 As Form = New Form1()
      Application.Run(form1)
  End Sub 

End Class

Public Class Form1

   Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Dim bm As New Bitmap("figure2.bmp")
       Dim source_bm As New Bitmap(bm)
   
       bm.Dispose()
       picSource.Image = source_bm
       picDest.Size = picSource.Size
       Dim dest_bm As New Bitmap(source_bm)
       For y As Integer = 0 To dest_bm.Height - 1
           For x As Integer = 0 To dest_bm.Width - 1
               Dim clr As Color = dest_bm.GetPixel(x, y)
               clr = Color.FromArgb(255,255 - clr.R,255 - clr.G,255 - clr.B)
               dest_bm.SetPixel(x, y, clr)
           Next x
       Next y
       picDest.Image = dest_bm
   End Sub

End Class

<Global.Microsoft.VisualBasic.rupilerServices.DesignerGenerated()> _ Partial Public Class Form1

   Inherits System.Windows.Forms.Form
   <System.Diagnostics.DebuggerStepThrough()> _
   Private Sub InitializeComponent()
       Me.SplitContainer1 = New System.Windows.Forms.SplitContainer
       Me.picSource = New System.Windows.Forms.PictureBox
       Me.picDest = New System.Windows.Forms.PictureBox
       Me.SplitContainer1.Panel1.SuspendLayout()
       Me.SplitContainer1.Panel2.SuspendLayout()
       Me.SplitContainer1.SuspendLayout()
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).BeginInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).BeginInit()
       Me.SuspendLayout()
       "
       "SplitContainer1
       "
       Me.SplitContainer1.Dock = System.Windows.Forms.DockStyle.Fill
       Me.SplitContainer1.Location = New System.Drawing.Point(0, 24)
       Me.SplitContainer1.Name = "SplitContainer1"
       "
       "SplitContainer1.Panel1
       "
       Me.SplitContainer1.Panel1.AutoScroll = True
       Me.SplitContainer1.Panel1.Controls.Add(Me.picSource)
       "
       "SplitContainer1.Panel2
       "
       Me.SplitContainer1.Panel2.AutoScroll = True
       Me.SplitContainer1.Panel2.Controls.Add(Me.picDest)
       Me.SplitContainer1.Size = New System.Drawing.Size(522, 249)
       Me.SplitContainer1.SplitterDistance = 270
       Me.SplitContainer1.TabIndex = 1
       Me.SplitContainer1.Text = "SplitContainer1"
       "
       "picSource
       "
       Me.picSource.AutoSize = True
       Me.picSource.Location = New System.Drawing.Point(0, 0)
       Me.picSource.Name = "picSource"
       Me.picSource.Size = New System.Drawing.Size(208, 184)
       Me.picSource.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picSource.TabIndex = 0
       Me.picSource.TabStop = False
       "
       "picDest
       "
       Me.picDest.AutoSize = True
       Me.picDest.Location = New System.Drawing.Point(0, 0)
       Me.picDest.Name = "picDest"
       Me.picDest.Size = New System.Drawing.Size(184, 184)
       Me.picDest.SizeMode = System.Windows.Forms.PictureBoxSizeMode.AutoSize
       Me.picDest.TabIndex = 1
       Me.picDest.TabStop = False
       "
       "Form1
       "
       Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
       Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
       Me.ClientSize = New System.Drawing.Size(522, 273)
       Me.Controls.Add(Me.SplitContainer1)
       Me.Name = "Form1"
       Me.Text = "InvertImageGetSetPixels"
       Me.SplitContainer1.Panel1.ResumeLayout(False)
       Me.SplitContainer1.Panel1.PerformLayout()
       Me.SplitContainer1.Panel2.ResumeLayout(False)
       Me.SplitContainer1.Panel2.PerformLayout()
       Me.SplitContainer1.ResumeLayout(False)
       CType(Me.picSource, System.ruponentModel.ISupportInitialize).EndInit()
       CType(Me.picDest, System.ruponentModel.ISupportInitialize).EndInit()
       Me.ResumeLayout(False)
       Me.PerformLayout()
   End Sub
   Friend WithEvents SplitContainer1 As System.Windows.Forms.SplitContainer
   Friend WithEvents picSource As System.Windows.Forms.PictureBox
   Friend WithEvents picDest As System.Windows.Forms.PictureBox

End Class

 </source>

New Bitmap(Int w, Int y)

<source lang="vbnet"> Imports System Imports System.Windows.Forms Imports System.Collections.Generic Imports System.ruponentModel Imports System.Drawing.Imaging Imports System.Drawing Public Class MainClass

  Shared Sub Main()
       Dim bm As New Bitmap(256, 256)
       " Draw on it.
       Dim gr As Graphics = Graphics.FromImage(bm)
       gr.Clear(Color.White)
       gr.DrawEllipse(Pens.Red, 0, 0, bm.Width - 1, bm.Height - 1)
       gr.DrawLine(Pens.Green, 0, 0, bm.Width - 1, bm.Height - 1)
       gr.DrawLine(Pens.Blue, bm.Width - 1, 0, 0, bm.Height - 1)
       " Save the result as a JPEG file.
       bm.Save("test.Bmp", ImageFormat.Bmp)
  End Sub 

End Class

 </source>

New Bitmap(String fileName)

<source lang="vbnet">

Imports System Imports System.Windows.Forms Imports System.Drawing Imports System.Drawing.Drawing2D Imports System.Drawing.Text Imports System.Drawing.Imaging Public Class MainClass

 Shared Sub Main()
    Dim form1 As Form1 = new Form1
    Application.Run(form1)
 End Sub
 

End Class

Public Class Form1

 Inherits System.Windows.Forms.Form
 Public Sub New()
   MyBase.New()
   Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
   Me.ClientSize = New System.Drawing.Size(292, 273)
   Me.Text = "Form1"
 End Sub
 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 End Sub
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
   Dim bmp As Bitmap = New Bitmap("figure2.bmp")
   Dim c As Color
   Dim x, y As Int32
   e.Graphics.DrawImage(bmp, 10, 30)
   For x = 0 To bmp.Width - 1
     For y = 0 To bmp.Height - 1
       c = bmp.GetPixel(x, y)
       c = Color.FromArgb(c.ToArgb() + 100)
       bmp.SetPixel(x, y, c)
     Next
   Next
   e.Graphics.DrawImage(bmp, 150, 30)
 End Sub

End Class

 </source>