Private Sub Command1_Click()
Dim r2, g2, b2 As Integer
Dim r1, g1, b1 As Integer
Dim c1 As Long
Dim c2 As Long
Dim x0, y0 As Integer
For x0 = 1 To 250
For y0 = 1 To Picture2.Height - 2
c1 = Picture1.Point(x0, y0)
r1 = (c1 And &HFF): g1 = (c1 And 62580) / 256: b1 = (c1 And &HFF0000) / 65536
'獲得picture1中指定點的r g b分量
c2 = Picture1.Point(x0 - 1, y0 - 1)
r1 = (c2 And &HFF): g1 = (c1 And 62580) / 256: b1 = (c1 And &HFF0000) / 65536
'獲得picture1中指定點相鄰點的r g b分量
r1 = r1 + (r1 - r2): g1 = g1 + (g1 - g2): b1 = b1 + (b1 - b2)
If r1 > 255 Then r1 = 255
If r1 < 0 Then r1 = 0
If b1 > 255 Then b1 = 255
If b1 < 0 Then b1 = 0
If g1 > 255 Then g1 = 255
If g1 < 0 Then g1 = 0
Picture2.PSet (x0, y0), RGB(r1, g1, b1)
DoEvents
Next y0
Next x0
MsgBox "success"
End Sub