保存图片时，对话框勿扰？

Question

保存图片时，CommonDialog 对话框不会弹出，且按原图片名保存在原路经。
下面代码中：
Rc = JPEGSavePic(PicView.Image, CDlgFile.FileName, JPEGFlags)
还需要有添加哪些代码？谢谢！
**********************************************************************
    On Error GoTo ErrPos
    CDlgFile.Filter = "JPEG文件(*.jpg;*.jpeg)|*.jpg;*.jpeg"
    CDlgFile.Flags = cdlOFNOverwritePrompt Or cdlOFNHideReadOnly
    CDlgFile.InitDir = IIf(Len(CDlgFile.FileName) = 0, App.Path & "\" & "Pic", vbNullString)
    CDlgFile.ShowSave
    On Error GoTo 0    Dim Rc As Boolean
    StartBusy
    Rc = JPEGSavePic(PicView.Image, CDlgFile.FileName, JPEGFlags)
    EndBusy
    TxtTime.Text = "处理时间：" & BusyTime() & "ms"
    If Rc = False Then
        MsgBox "保存失败！", vbCritical
    End If    Exit SubErrPos:
    Select Case Err.Number
    Case 0
    Case cdlCancel
    Case Else
        MsgBox Err.Description, vbCritical, Err.Number
    End SelectEnd SubPrivate Sub mnuOpen_Click()
    On Error GoTo ErrPos
    CDlgFile.Filter = "图像文件(*.bmp;*.dib;*.gif;*.jpg;*.jpeg)|*.bmp;*.dib;*.gif;*.jpg;*.jpeg"
    CDlgFile.Flags = cdlOFNFileMustExist Or cdlOFNHideReadOnly
    CDlgFile.InitDir = IIf(Len(CDlgFile.FileName) = 0, App.Path, vbNullString)
    CDlgFile.ShowOpen
    On Error GoTo 0
    
    Set PicView.Picture = LoadPicture(CDlgFile.FileName)
    
    Exit Sub
    
ErrPos:
    Select Case Err.Number
    Case 0
    Case cdlCancel
    Case Else
        MsgBox Err.Description, vbCritical, Err.Number
    End Select
*******************************************************************************

Answer 1

CDlgFile.InitDir = IIf(Len(CDlgFile.FileName) = 0, App.Path, vbNullString)
可疑

Answer 2

1、CommonDialog 对话框不会弹出？
2、按原路径保存？