Index
    End If
    Caption = "Image: " &amp; sFIle
    FileName = sFIle
    If Not (bIsTemp) Then
        mfrmMain.SetStatus "Opened " &amp; sFIle &amp; ".", FileTitle, picImage.Width \
         Screen.TwipsPerPixelX &amp; " x " &amp; picImage.Height \ Screen.TwipsPerPixelY
        mfrmMain.AddMRUFile sFIle
    End If
    picImage.Refresh
    picScrollBox_Resize
    OpenFile = True
    Exit Function
OpenFileError:
    MsgBox "An error occured trying to open this file: " &amp; Err.Description,
     vbExcla