VB图象处理的问题，请高手指点迷津

我有一段高通滤波的程序，但运行后没效果，请高手指点迷津
Private Sub Command2_Click()Dim cc, r, g, b As Variant
Dim r1(256, 256), g1(256, 256), b1(256, 256) As Variant
Dim r2(256, 256), g2(256, 256), b2(256, 256) As Variant
Dim h(256, 256) As Variant
Dim i, j As Variant
Screen.MousePointer = 11
h(0, 0) = -1: h(0, 1) = -1: h(0, 2) = -1
h(1, 0) = -1: h(1, 1) = 9: h(1, 2) = -1
h(2, 0) = -1: h(2, 1) = -1: h(2, 2) = -1
For i = 0 To 127 * 2
   For j = 0 To 127 * 2
 
   cc = Picture1.Point(i, j)
   r1(i, j) = (cc Mod 255)
   g1(i, j) = ((cc And &HFF00) / 256&) Mod 256&
   b1(i, j) = (cc And &HFF000) / 65536
   Next j
Next i
m = 128 * 2: n = 128 * 2
For p = 1 To m
  For q = 1 To n
   sr = 0: sg = 0: sb = 0
    For i = 0 To 2
       For j = 0 To 2
       ki = p - 1: ki = q - i
       If (ki >= 0) And (ki < m) And (kj >= 0) And (kj < m) Then
        sr = sr + r1(ki, kj) * h(i, j) '+4*256) mod 256
        sg = sg + g1(ki, kj) * h(i, j) '+4*256) mod 256
        sb = sb + b1(ki, kj) * h(i, j) '+4*256) mod 256
        End If
        Next j
    Next i
        kp = p - 1
        kq = q - 1
        r2(kp, kq) = Abs(sr)
        g2(kp, kq) = Abs(sg)
        b2(kp, kq) = Abs(sb)
        Picture2.PSet (kp, kq), RGB(r2(kp, kq), g2(kp, kq), b2(kp, kq))
  Next q
Next p
        Screen.MousePointer = 1
End Sub