在MapControl里如何把当前地图保存为一个MXD文件？

在MapControl里如何把当前地图保存为一个MXD文件？

<P>好象例子里就有了</P>

我找不到，能帮我找一下吗？

<P>关注</P>

<P>有人知道是怎么实现的吗？</P><P>有例子吗？</P>

<P>    Public Sub SaveMxFile(ByRef m_pMapDocument As IMapDocument)
        If m_pMapDocument.IsReadOnly(m_pMapDocument.DocumentFilename) = True Then
            MsgBox("This map document is read only!", , "Save Failed")
            Exit Sub
        End If
        On Error Resume Next
        'Save with the current relative path setting
        m_pMapDocument.Save()
    End Sub</P><P>    Public Sub SaveAsMxFile(ByRef m_pMapDocument As IMapDocument)</P><P>        Dim pSaveFileDialog As New SaveFileDialog
        pSaveFileDialog.Title = "Save Map Document"
        pSaveFileDialog.Filter = "Map Documents (*.mxd)|*.mxd"
        pSaveFileDialog.ShowDialog()
        If pSaveFileDialog.FileName <> "" Then
            m_pMapDocument.SaveAs(pSaveFileDialog.FileName)
            m_pMapDocument.Close()
            m_pMapDocument.Open(pSaveFileDialog.FileName)
        End If
    End Sub</P>

<P>我试试</P>

arcgis9才可以巴？