   
    ' Ask to save:
    If c.VBGetSaveFileName(sName, , , "Bitmap Files (*.BMP)|*.BMP|All Files
     (*.*)|*.*", , , , "BMP", Me.hwnd) Then
        SavePicture picImage.Image, sName
        FileName = sName
        mfrmMain.AddMRUFile sName
        Caption = "Image: " &amp; sName
        m_bDirty = False
    End If
    Exit Function

SaveFileError:
    MsgBox "An error occured trying to save this file: " &amp; Err.Description,
     vbExclamation
    Exit Function

End Function
Public Property Let FileNam