Question)
    Select Case eR
    Case vbYes
        If (SaveFile()) Then
            QuerySave = True
        End If
    Case vbNo
        QuerySave = True
    Case vbCancel
        ' cancel..
    End Select
End Function

Public Function OpenFile(ByVal sFIle As String, Optional ByVal bIsTemp As
 Boolean = False) As Boolean
Dim sPic As StdPicture
On Error GoTo OpenFileError
    
   mfrmMain.SetStatus "Opening " &amp; sFIle &amp; "..."
   Set sPic = LoadPicture(sFIle)
   m_cDib.CreateFromPicture sPic
   m_cDi