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