读符号出错，求肋，不知道代码哪行有问题？？

<P>        Dim markname As String<BR>        Dim pStyleGlry As ESRI.ArcGIS.Display.ServerStyleGallery<BR>        Dim pEnumStyle As ESRI.ArcGIS.Display.IEnumStyleGalleryItem<BR>        Dim pStyleItem As ESRI.ArcGIS.Display.IStyleGalleryItem<BR>        Dim pStylePath As String<BR>        'Add the Civic.style to the IStyleGalleryStorage<BR>        Dim pStylStor As ESRI.ArcGIS.Display.IStyleGalleryStorage<BR>        pStylStor = pStyleGlry<BR>        pStylePath = "c:\Program Files\ArcGIS\Styles\Caves.ServerStyle" 'pStylStor.DefaultStylePath ; "Civic.style"<BR>        pStylStor.AddFile(pStylePath)<BR>        pEnumStyle = pStyleGlry.Items("Marker Symbols", pStylePath, "Default")<BR>        pStyleItem = pEnumStyle.Next()<BR>        While Not pStyleItem Is Nothing<BR>            markname = pStyleItem.Name()<BR>            ListBox1.Items.Add(markname)<BR>            pStyleItem = pStyleItem.Next()<BR>        End While<BR>这是我读符号的代码</P>
<P>在        pStylStor.AddFile(pStylePath)时出错是</P>
<P>“未处理的“System.NullReferenceException”类型的异常出现在 WindowsApplication1.exe 中。”</P>
<P>不知道为什么，请高手帮忙谢谢！！！</P>
<P>我是想把符号读出放到listbox里面</P>

<P> 片段代码，参考</P>
<P>                                   Set pStyleGal = New ServerStyleGallery<BR>                                    Set pStyleStorage = pStyleGal<BR>                                    pStyleStorage.TargetFile = App.Path ; "\water.ServerStyle"<BR>                                    Set pEnumStyleGall = pStyleGal.Items("Marker Symbols", "", "")<BR>                    <BR>                                    pEnumStyleGall.Reset<BR>                                    Set pStyleItem = pEnumStyleGall.Next</P>

<P>感谢GIS，我已经做好！！！！！！</P>