对图像的效果处理问题呀（高手请来看看，我困惑ing）

Private Sub MENU_EFFECT_REVERSE_Click()
Dim X, Y, c, r, g, b
Picture2.Cls
Picture2.Picture = Picture1.Picture
Screen.MousePointer = 11 '将鼠标光标设为等待图像
For Y = 0 To Picture1.ScaleHeight - 1
   For X = 0 To Picture1.ScaleWidth - 1
      '水平翻转
      c = Picture2.Point(X, Y) '取出对应点的rgb值
      '颜色分解
      r = c And &HFF
      g = (c And 65280) / 256
      b = (c And &HFF0000) / 65536
      '反色处理
      Picture1.PSet (X, Y), RGB(255 - r, 255 - g, 255 - b)
      DoEvents
      Next X
Next Y
Screen.MousePointer = 0 ' 恢复鼠标指针
End Sub
出来的效果更本不好呀 图像都没了  请高手看看  改良一下我的程序