mapgis7.0二次开发如何添加多个要素图层

<P>我要在mapgis7.0二次开发的同一个地图文档中打开几个要素层，应该怎么样编码，即我要添加ku6-1.wl和其他区和点文件，应该怎么添加代码？请高手们指点迷津</P>
<P>    我的编码如下：</P>
<P>Imports mapXBase<BR>Imports mc_basObj7Lib<BR>Imports mc_basXcls7Lib</P>
<P>Public Class mainform<BR>    Dim m_map As IXMap                                     '地图<BR>    Dim m_FCLs As mcFeatureCls                       '要素类<BR>    Dim m_GDBSvr As mcGDBServer                   '数据源<BR>    Dim m_GDB As mcGDataBase                       '数据库<BR>    Dim m_pMapLayer As IXMapLayer                  '图层</P>
<P>    Private Sub mainform_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load<BR>        myview.WorkSpace = myWork.ToInterface<BR>        m_GDBSvr = mywork.Connect("MapGisLocal", "", "")<BR>        If m_GDBSvr IsNot Nothing Then<BR>            m_GDB = m_GDBSvr.gdb("sample")<BR>            If m_GDB IsNot Nothing Then<BR>                m_FCLs = m_GDB.OpenFClsByName("ku6_1.wl")<BR>                If m_FCLs IsNot Nothing Then<BR>                    mywork.AddMap("我的地图", m_map)<BR>                    m_map.Visible = True<BR>                    mywork.AddClass(m_FCLs, m_pMapLayer, m_map)<BR>                    If m_pMapLayer IsNot Nothing Then<BR>                        m_pMapLayer.Visible = True<BR>                        m_pMapLayer.Active = True<BR>                        myview.Restore()<BR>                    End If<BR>                End If<BR>            End If<BR>        End If</P>
<P>    End Class</P>

很简单吧，调用打开文件对话框，设置可多选，然后一个个文件加载了