有没有方法是下面的代码加快速度啊？

我对图象进行锐化，使用下面的代码，但速度慢的惊人，有没有那为高手有更好的办法使速度快一点啊 。For i = 1 To 600
For j = 1 To 500
   pixles(i, j) = GetPixel(pic1.hdc, i, j)
   Next j
   
   Next i
   
   For i = 2 To 600 - 1
   For j = 2 To 500 - 1
   r = 0
   b = 0
   g = 0
   c = pixles(i, j)
     r = (c And &HFF)
     g = (c And 65280) / 256
     b = (c And &HFF0000) / 65536
       c = pixles(i, j - 1)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
          c = pixles(i, j + 1)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
      c = pixles(i + 1, j)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
          c = pixles(i + 1, j - 1)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
          c = pixles(i + 1, j + 1)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
          c = pixles(i - 1, j)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
          c = pixles(i - 1, j - 1)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
          c = pixles(i - 1, j + 1)
       r = r + (c And &HFF)
     g = g + (c And 65280) / 256
     b = b + (c And &HFF0000) / 65536
     r = r / 9
     g = g / 9
     b = b / 9
      SetPixelV pic2.hdc, i, j, RGB(r, g, b)
     Next j
 
     Next i