Set Layer = Map.getLayers().getLayerByName("Cities")
Set Renderer = Layer.getRenderer()

' add new RendererItem
Set RItem =  Renderer.addItem()

' select locations by the expression (see Appendix A)
RItem.setExpr "Capital = ""Y"""

' set font attributes
Set font = RItem.getFont()
color = Server.CreateObject("RMIMS.Utils").createColor(0, 0, 255) ' blue
font.setColor (color)
font.setSize 10
font.setBold True
RItem.setFont (font)

RItem.setFontMask rmFontColor OR rmFontSize OR rmFontBold

' set symbol attributes
Set symbol = RItem.getSymbol()
symbol.setSymbolStyle("std:circle") ' see Appendix D
color = Server.CreateObject("RMIMS.Utils").createColor(255, 0, 0) ' red
symbol.setColor rmSymbolColor, (color)
symbol.setSize 16

RItem.setSymbol (symbol)
RItem.setSymbolMask rmSymbolColor_1 OR rmSymbolStyle OR rmSymbolSize
RItem.setMinMaxZoomLevel rmMinZoomLevel, rmMaxZoomLevel

' add new RendererItem
Set RItem2 =  Renderer.addItem()

' select all records except the records specified above
RItem2.setExpr "Capital <> ""Y""" ' see Appendix A

' hide symbols and labels
Set symbol2 = RItem2.getSymbol()
symbol2.setSymbolStyle "std:null" ' see Appendix D

RItem2.setLabelVisible false
RItem2.setSymbolMask rmSymbolStyle
RItem2.setMinMaxZoomLevel rmMinZoomLevel, rmMaxZoomLevel