菜鸟求助:关于VBA设置symbol和选中要素输出新图层

<P>盼各位大虾回复以下两个问题:</P>
<P>1.ARCMap 中有个线形,是一般用来表示铁路的,单线的一段黑一段白,叫做Single, Nautical Dashed.这个在VBA中是怎么表示的啊?</P>
<P>2.在VBA中选中了某个图层的一些要素,如何输出成新的图层?</P>
<P>谢谢!</P>