ao中怎么样同时加载多个图层

<P>各位高手，请教一个简单问题：<b>怎么样同时加载多个图层？</b></P>
<P>附代码：</P>
<P>弹出打开文件对话框，选择多个shp文件后，最后打开的shp会覆盖以前加载的shp层。</P>
<P>请问：怎么解决，有其他的方法？</P>
<P>Do
          Set pGXObject = pEnumGX.Next
          If pGXObject Is Nothing Then Exit Do
          Set Pname = pGXObject.InternalObjectName
        '  lblFC = pGXObject.FullName</P>
<P>          If TypeOf Pname Is IFeatureClassName Then
            Set GeoFealayer.FeatureClass = Pname.Open
            MsgBox Pname.NameString
            MapControl1.AddLayer GeoFealayer
          End If
        Loop</P>

ding

这个文件很简单,可以用COMMONDAIALOG控件来实现,然后读取文件名