[SOLVED] Question about Common Dialog

[RhinoBull]

It's always a good idea to show your actual code but since you did not try the following:

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