VB的图像处理问题

Question

第一步：Private Sub Command1_Click()
On Error GoTo Err
CommonDialog1.Filter = "(*.*)|*.*|(*.gif)|*.gif|(*.bmp)|*.bmp|(*.jpg)|*.jpg"
CommonDialog1.ShowOpen
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
Print
Picture3.Picture = Picture1.Picture
Picture4.Picture = Picture1.Picture
Exit Sub
Err: Print
Exit Sub
End Sub

第二步（平滑处理）Private Sub Command3_Click()
DoEvents
width2 = Picture1.ScaleWidth
height2 = Picture1.ScaleHeight
For i = 1 To width2 - 2
For j = 1 To height2 - 2
p1 = Picture1.Point(i - 1, j - 1)
p2 = Picture1.Point(i, j - 1)
p3 = Picture1.Point(i + 1, j - 1)
P4 = Picture1.Point(i - 1, j)
P5 = Picture1.Point(i, j)
P6 = Picture1.Point(i + 1, j)
P7 = Picture1.Point(i - 1, j + 1)
P8 = Picture1.Point(i, j + 1)
P9 = Picture1.Point(i + 1, j + 1)
Red = (p1 Mod 256 + p2 Mod 256 + p3 Mod 256 + P4 Mod 256 + P5 Mod 256 + P6 Mod 256 + P7 Mod 256 + P8 Mod 256 + P9 Mod 256) / 9
Green = (p1 \ 256 Mod 256 + p2 \ 256 Mod 256 + p3 \ 256 Mod 256 + P4 \ 256 Mod 256 + P5 \ 256 Mod 256 + P6 \ 256 Mod 256 + P7 \ 256 Mod 256 + P8 \ 256 Mod 256 + P9 \ 256 Mod 256) / 9
Blue = (p1 \ 65536 + p2 \ 65536 + p3 \ 65536 + P4 \ 65536 + P5 \ 65536 + P6 \ 65536 + P7 \ 65536 + P8 \ 65536 + P9 \ 65536) / 9
Picture2.PSet (i, j), RGB(Red, Green, Blue)
Next j
Next i
End Sub

第一步成功，平滑处理时出现问题，请教大神解决

Answer 1

　　VB的图像处理问题
　　你是想在第一张图片上添加文字还是什么啊，如果要完成你说的要求是比较困难的。
　　但是我不明白，你是不是真的就非要第二张图片上的文字啊。
　　如果不是，你可以选择别的途径啊，用label控件可以实现背景通透的，只剩下文字，你说的艺术字也可以这样实现，就是找到这种字体，如果电脑上没有也可以到网上下载，一般情况下都可以找到的。

追问

不是字体，是对一个图片的平滑处理。像这个一样，这个图像是实现了逆反处理，现在是平滑处理出了问题，我需要人帮我看看之前的代码里边的算法或者是别的地方，哪里有问题，因为我完全不懂，代码是复制来的。