<P>MakeServerStyleSet.exe可以转换</P><P>但是加载的时候出现了程序死掉的情形 ，使用的是arcgis9 sp2</P><P>Dim pStyleGal As IStyleGallery
Dim pStyleStorage As IStyleGalleryStorage
Dim pEnumStyleGall As IEnumStyleGalleryItem
Dim pStyleItem As IStyleGalleryItem

Dim strCategory As String
Dim pStyleGalPath As String

pStyleGalPath = "E:\Projects\Esri.ServerStyle"

Set pStyleGal = New ServerStyleGallery
'As using the StyleGallery coclass, I can add all Fill Symbol items to the ComboBox combo1.


Set pStyleStorage = pStyleGal
pStyleStorage.TargetFile = pStyleGalPath
strCategory = "Fill Symbols"
Set pEnumStyleGall = pStyleGal.Items(strCategory, "", "")
pEnumStyleGall.Reset
Set pStyleItem = pEnumStyleGall.Next
Do While Not pStyleItem Is Nothing
'Loop through and access each marker
Combo1.AddItem pStyleItem.Name
Set pStyleItem = pEnumStyleGall.Next
Loop </P>

还没用到这个，关注ing，回头来报告消息