duplicate the bitblt

i did a picture in bitblt, and i want to duplicate it 10 times,
how can i do that?!!!

I don't know that I understand your question completely.

To bitblt something 10 times, you simply need to use

For i = 1 to 10
Bitblt destDC, destX, destY, destWid, destHgt, srcDC, srcX, srcY, vbSrcCopy
Next i

. I would not create 10 memory copies of the image ... That would eat up alot of system resources needlessly.

Regards,
-<font color=purple>The Hand</font color=purple>

Mornin inb2een cold stone ashes fall upon the wretched chosen 1s 100 megatons evaporate those chosen

look i did like this:
Private Sub hero()
Dim SUCCESS As Integer



SUCCESS = BitBlt(Picture1.hdc, Xhero, Yhero, 16, 50, Picture3.hdc, xchar, ychar, SRCAND)
SUCCESS = BitBlt(Picture1.hdc, Xhero, Yhero, 16, 50, Picture2.hdc, xchar, ychar, SRCPAINT)


End Sub


i want to duplicate the hero picture which made with bitblt 10 times, how can i do that