請問IEnumStyleGalleryItem使用?

<P>請各位先進幫忙解決以下問題，我是使用9.1engine，謝謝。</P>
<P>Dim PSTST As IStyleGalleryStorage <BR>Dim PATH As String <BR>Dim PARRAY As IArray </P>
<P>PATH= "C:\ProgramFiles\ArcGIS\Styles\ESRI.ServerStyle" <BR>Dim pSty As IStyleGallery <BR>Dim pEnscale As IEnumStyleGalleryItem <BR>Dim pFile As IStyleGalleryItem </P>
<P>Set pSty = New ServerStyleGallery <BR>Set PSTST = pSty <BR>PSTST.TargetFile = PATH <BR>Set pEnscale = pSty.Items("Shadows", "PATH", "")'此行會出現automation錯誤　<BR>pEnscale.Reset Set PARRAY = New esriSystem.Array <BR>List1.Clear <BR>Set pFile = pEnscale.Next <BR>Do While Not pFile Is Nothing<BR>PARRAY.Add pFile.Item <BR>List1.AddItem pFile.Name <BR>Set pFile = pEnscale.Next<BR>Loop</P>