Image Trouble

[toocold]

Good evening,

I have a userform that has an image control. I want to enable a user to change the image and for that image to appear on the user form from that point on. I have it so that a user can load an image using the following code:

Private Sub GetImage_Click()
Dim myPictName As Variant

myPictName _
= Application.GetOpenFilename("Picture files, *.bmp;*.jpg;*.gif")
If myPictName = False Then
MsgBox "Error: No image selected!"
Exit Sub
End If

SetGoals.Image1.Picture = LoadPicture(myPictName)
SetGoals.Image1.PictureSizeMode = fmPictureSizeModeZoom
End Sub

The problem is that the image is not saved. Everytime the user comes to the form, they have to reload an image. Any ideas?

As always, thank you in advance for your help. It is really appreciated.
dw

[royUK]

You can't save the result to a Form, you would need to store the selection somewhere, probably in a hidden sheet.

Remember to use Code Tags