It's always a good idea to show your actual code but since you did not try the following:
Code:
Private Sub Command1_Click()
Dim strFileName As String
On Error GoTo ErrHandler
With CommonDialog1
.Filter = "Pictures (*.bmp;*.jpg;*.gif)|*.bmp;*.jpg;*.gif"
.Flags = cdlOFNExplorer
.CancelError = True
.ShowOpen
strFileName = .FileName 'assign file name to a variable
End With
DoEvents 'pass control to os
Picture1.Picture = LoadPicture(strFileName) 'finally load your image file
Exit Sub
ErrHandler:
Err.Clear
End Sub