Dim i, j As Integer
Dim r1, g1, b1 As Integer
Dim c, r, g, b As Long
Dim rr, gg, bb As Integer
Dim n As Long
For i = 0 To picMain.Image.Width - 1
For j = 0 To picMain.Image.Height - 1
c = picMain.Point(i, j)
r1 = (c And &HFF)
g1 = (c And 65286) / 256
b1 = (c And &HFF0000) / 65536
rr = 255 - r1
gg = 255 - g1
bb = 255 - b1
If rr < 0 Then rr = 0
If rr > 255 Then rr = 255
If gg < 0 Then gg = 0
If gg > 255 Then gg = 255

If bb < 0 Then bb = 0
If bb > 255 Then bb = 255
picMain.PSet (i, j), RGB(rr, gg, bb)
Next j
Next i