No me queda claro, que es lo que quieres...
1 - Copiar la imagen de un control picture en otra (varios casos)
Ten en cuenta el modo de escala...
set pic2.pictue= pic1.picture ' copia la imagen entera del pic1 al pic2
set pic2.picture= pic1.image ' copia 'lo que se ve' del pic1 al pic2
call pic2.paintpicture(pic1, x,y, ancho, alto, dx, dy, dancho, dalto, modo) ' copia parte del pic1 en las posiciones y medias deseadas del pic2, modo son valores que expresan como ha de ser la copia, busca en la ayuda de VB, "Raster Operations" para ver los valores exactos, por defecto es copiar (VBCopy)
' También puedes usar la API, BitBlt, en vez de paintpicture...
2 - si lo que quieres es meter todo el pic2 en el pic1, tienes que usar la api "SetParent", busca en la ayuda de VB y desde complementos\Api (si está cargada, podrás tomar la declaración de la api)