Visual Basic - Picture1 ¿Como paso la imagen a un Picture2?

Hola amigos:
No estoy pudiendo pasar el contenido de un Picture1 a otro Picture2

Yo hago lo siguiente:


Picture1.Line (0,0)-(100,100)
Set Picture2 = Picture1
Picture2.refresh

Qué estoy haciendo mal

Asi me funciona bien :

Picture1.Line (0, 0)-(100, 100)
Clipboard.SetData Picture1.Image, vbCFBitmap
Picture2.Picture = Clipboard.GetData