vB怎么做浮雕效果

VB6.0可对加载图片循环用Point 方法获取指定磅的RGB颜色值，然后经一定的代码处理并灰度化而实现浮雕效果。

Point 方法，按照长整数，返回在 Form 或 PictureBox 上所指定磅的红-绿-蓝 (RGB) 颜色。不支持命名参数。

实现代码：

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 As Integer
    Dim y0 As Integer
    Screen.MousePointer = 11
    For x0 = 1 To Picture1.Width - 2
        For y0 = 1 To Picture2.Height - 2
            c1 = Picture1.Po