画像の色を反転させる

これもPaintPictureだけで出来ます。

Private Sub Picture1_Click()
Picture1.PaintPicture Picture1.Picture, 0, 0, , , , , , , vbNotSrcCopy
End Sub

とするだけです。