Private Sub Form_Load()
Shape1.Visible = False
End Sub

Private Sub Image1_Click()
Shape1.Left = Image1.Left - 100
Shape1.Top = Image1.Top - 100
Shape1.Visible = True

Picturebox.Cls
Picturebox.Print "图像1"

Picturebox.AutoRedraw = True
Image3.Picture = Image1.Picture
Image3.Visible = True

End Sub

Private Sub Image2_Click()
Shape1.Left = Image2.Left - 100
Shape1.T = Image2.Tag - 100
Shape1.Visible = True

Picturebox.Cls
Picturebox.Print "图像2"

Picturebox.AutoRedraw = True
Image3.Picture = Image2.Picture
Image3.Visible = True
End Sub
小弟也是在网上看视频学的，可是不知道为什么运行后居然没反应，哪位大哥帮帮小弟，小弟在这感激不尽．

问题已经解决，自己帮自己顶上