Why can't I load a picture?

[SteveCRM]

This won't work!
On Error GoTo PATorJK
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Image Files (*.bmp)|*.bmp"
CommonDialog1.ShowOpen
Open CommonDialog1.Filename For Input As #1
Image1.picture = Input(LOF(1), #1)
Close #1
PATorJK: Exit Sub

It won't open the picture!

Steve

[kishore]

I hope this helps

On Error GoTo PATorJK
CommonDialog1.CancelError = True
CommonDialog1.Filter = "Image Files (*.bmp)|*.bmp"
CommonDialog1.ShowOpen
image1.picture=loadpicture(commondialog1.filename)

Good luck
krishna

[SteveCRM]

Works Great, Thanks A Lot!

Steve