hi

how can i copy a bitmap from a picturebox, which is not visible, to an other picturebox and save it to file then?

here ist the code i wrote:

Dim c, i, Erg_Img_Copy As Long
For c = 0 To (picturebox1.ScaleHeight *12) Step 100
For i = 0 To (picturebox1.ScaleHeight *12) Step 100
Erg_Img_Copy = BitBlt(picturebox2.hdc, i, c, 100, 100, picturebox1.hdc, 0, 0, vbSrcCopy)
SavePicture picturebox2.picture, "test.bmp"
Next i
Next c