如何在visual basic6中与其他人交换不同的透明图像？

PictureBox1.Picture = LoadPicture("image.png")

Dim x As Integer, y As Integer
Dim pixelColor As Long
Dim targetColor As Long

targetColor = RGB(255, 255, 255) ' 设置目标颜色为白色

For y = 0 To PictureBox1.ScaleHeight - 1
    For x = 0 To PictureBox1.ScaleWidth - 1
        pixelColor = GetPixel(PictureBox1.hdc, x, y) ' 获取像素颜色
        If pixelColor = targetColor Then ' 判断是否为目标颜色
            PSet (x, y), vbTransparent ' 设置像素为透明色
        End If
    Next x
Next y

SavePicture PictureBox1.Picture, "processed_image.png"