Bring a picture into a form

[Palamedesheights]

Any help on this would be greatly appreciated.

I am trying to create a form that will then create a document.

I want the user to be able to bring in pictures from a file but I would like to preview it on the form before adding to the document.

The button on the form has the following code.

'********************************************************
Private Sub Insert_Picture_Click()
File_Check = "NO"
Do While File_Check = "NO"
fileToOpen = Application _
.GetOpenFilename("Jpeg Files (*.jpg), *.jpg")
If fileToOpen <> False Then
Picture_File1 = fileToOpen
File_Check = "YES"
Insert_Picture.Caption = Empty
Insert_Picture.Picture = Picture_File1
End If
Loop
End Sub
'*******************************************************

It does not like the line --> Insert_Picture.Picture = Picture_File1
Insert_Picture is the name of the button.

Can anyone help me with this?

 

[djreiswig]

Private Sub Insert_Picture_Click()
    File_Check = "NO"
    Do While File_Check = "NO"
        fileToOpen = Application _
        .GetOpenFilename("Jpeg Files (*.jpg), *.jpg")
        If fileToOpen <> False Then
            Picture_File1 = fileToOpen
            File_Check = "YES"
            Insert_Picture.Caption = Empty
            Insert_Picture.Picture = [COLOR=Red]LoadPicture([/COLOR]Picture_File1[COLOR=Red])[/COLOR]
        End If
    Loop
End Sub

 

[Palamedesheights]

Thank you this worked perfectly and when seen it was one of those that should have been obvious to me, I appreciate your help.