Private Sub InvertBitmap(g As Graphics, b as Bitmap)
Dim x, y, red, green, blue As Int32
For x = 0 To b.Width - 1
For y = 0 To b.Height - 1
red = 255 - b.GetPixel(x, y).R
green = 255 - b.GetPixel(x, y).G
blue = 255 - b.GetPixel(x, y).B
b.SetPixel(i, j, Color.FromArgb(red, green, blue))
Next
Next
End Sub