Tenta assim:
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = Picture2.Picture
End Sub
Pra voltar:
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Picture1.Picture = Nothing
End Sub
No caso a picture1 pega a imagem da picture2 e qdo eu tiro o mouse da área da picture1 ele volta a não conter nada... depois vc adapta as suas necessidades
t+