Use Load:

Code:
Option Explicit

Private Sub Command1_Click()
  Load Image1(1)
  Image1(1).Picture = Image1(0).Picture
  Image1(1).Visible = True
  'now move it to where you want it
  Image1(1).Move Image1(0).Left + Image1(0).Width, Image1(0).Top
End Sub