在程序中Image1的pictrue属性被改掉为其他的图片，请问怎样还原为以前的图片

Question

建一个 bitmap 句柄 完事了。

Answer 1

To: SNUMA
具体怎么做呢？
谢谢你们，我不想保存在文件里……

Answer 2

Image2.Picture = Image1.Picture

Answer 3

Private Sub Command1_Click()
Image2.Picture = Image1.Picture
End SubPrivate Sub Command2_Click()
Image1.Picture = LoadPicture("")
End SubPrivate Sub Command3_Click()
Image1.Picture = Image2.PictureEnd SubPrivate Sub Form_Click()
Image2.Visible = False
End Sub

Answer 4

Dim TempPic As IPictureDisp
Set TempPic=Image1.Image
Set Image1.Image=……
……
Set Image1.Image=TempPic