一个极其简单的问题，分数唾手可得啊，各位大侠莫失良机！！！

我用commondialog控件进行数据备份时，这个功能我倒是实现了，可是每次那个保存窗口
都出现在窗口的左上角，请问各位大侠有没有办法让它出现在屏幕中央呢？
那部分代码如下：
On Error GoTo 3
    CommonDialog1.InitDir = AppPath
    CommonDialog1.FileName = Format(Now, "yyyymmdd") & ".bak"
    CommonDialog1.DefaultExt = "*.bak"
    CommonDialog1.Filter = "数据库备份文件(*.bak)|*.bak|"
    CommonDialog1.ShowSave
    Screen.MousePointer = 11
    On Error GoTo 0
    DBString = db.ConnectionString
    db.Close
    If Dir(CommonDialog1.FileName) > "" Then Kill CommonDialog1.FileName
    DBEngine.CompactDatabase AppPath & "\shqjz.MDB", CommonDialog1.FileName, dbLangChineseSimplified & ";pwd=5b", , dbLangChineseSimplified & ";pwd=5b"
    db.Open DBString
    Screen.MousePointer = 0
    MsgBox "数据备份完毕。", vbInformation + vbOKOnly, "数据备份"
3:
    Screen.MousePointer = 0