hi, everybody:

How can I save a modified Pic.Pset to a .BMP file ?

below is my source code,I get RGB color from
Picture1 and add 10 to the RGB value,then Pset Picture2.
Then I use SavePicture to get modifid Picture2.image saved.
But I can not get the modified Picture2 saved. Why?


Note: the picture1 is 256 gray scale in 277*221

Private Sub Command1_Click()

For X3 = 0 To 276
For Y3 = 0 To 220
gray_scale0 = "&H" + Mid$(Hex$(Picture1.Point(X3, y3)),1, 1)
gray_scale1 = "&H" + Mid$(Hex$(Picture1.Point(X3, Y3)), 2, 1)
R_color = Val(gray_scale0) * 16 + Val(gray_scale1)+10
Picture2.PSet (X3, Y3), RGB(R_color, R_color, R_color)
Next
Next

pic_name = "tst.bmp"

Call SavePicture(Picture2.Image, pic_name)

End Sub

[Edited by vov on 04-17-2000 at 07:30 AM]