在vb.net中，MapXLib.FeatureFactoryClass带有CLSID的COM 对象无效或未注册，是怎么回事啊？

<P>我在vb.net中想实现在地图上画轨迹点，首先实现手动建立单个点，在代码中是这样写的：</P>
<P>Dim Pnt As New MapXLib.Point    '定义点<BR>                Dim FeaFac As New MapXLib.FeatureFactoryClass<BR>                Dim lyR As New MapXLib.Layer   '定义层<BR>                Dim ftr As New MapXLib.Feature  '定义特征<BR>                Dim NewStyle As New MapXLib.Style '定义样式<BR>                Dim CurCusSym As New MapXLib.Feature</P>
<P>                lyR = Map1.Layers.Item(1)<BR>                FeaFac = Map1.FeatureFactory</P>
<P>                With NewStyle<BR>                    .SymbolType = MapXLib.SymbolTypeConstants.miSymbolTypeBitmap<BR>                    .SymbolBitmapSize = 24<BR>                    .SymbolBitmapTransparent = True<BR>                    .SymbolBitmapName = "HOSP1-32.BMP"<BR>                End With<BR>                Map1.AutoRedraw = False '禁止图层自动刷新<BR>                lyR.Editable = True '置当前图层为可写状态<BR>                '创建点对象<BR>                Pnt.Set(112.974826758353, 28.1785114503609)</P>
<P>                ftr = FeaFac.CreateSymbol(Pnt, NewStyle) '创建符号<BR>                '记录目前正在处理的用户标记<BR>                CurCusSym = ftr</P>
<P>                '添加节点图标进当前图层并刷新图层<BR>                lyR.AddFeature(ftr)<BR>                lyR.Refresh()<BR>                Map1.AutoRedraw = True '恢复图层的自动刷新<BR>                lyR.Editable = False<BR>                '释放对象<BR>                Pnt = Nothing<BR>                FeaFac = Nothing<BR>                lyR = Nothing<BR>                ftr = Nothing  Exit Sub<BR> 运行的时候它老是报错， 是带有 CLSID {BBE482A3-037F-11D1-8796-00AA00B7EF73} 的 COM 对象无效或未注册。</P>
<P>就是Dim FeaFac As New MapXLib.FeatureFactoryClass这行有问题，但语句我看没有问题啊，那怎么总是报错呢？希望高手给看看。谢谢了！</P>