Hi all,

Can someone please tell me why this doesn't work?


Private Sub Command1_Click()
dim retval as long

load picture2(1)
picture2(1).visible = true

retval=BitBlt(Me.Picture2(1).hDC, 0, 0, 100,100, me.Picture1.hDC, 10, 10, SRCCOPY)

end sub

.........
I am trying to copy a section of picture1 to a newly loaded picture control.

Thanks in advance

FireBeast