' step 1 Set rc = Server.CreateObject("RMIMS.PolygonSymbol") Dim vertex() : ReDim vertex(4) Set vertex(0) = Map.toMapUnits( 125, 300) ' bottom/left Set vertex(1) = Map.toMapUnits( 125, 100) ' top/left Set vertex(2) = Map.toMapUnits( 475, 100) ' top/right Set vertex(3) = Map.toMapUnits( 475, 300) ' bottom/right Set gp = Server.CreateObject("RMIMS.GeoPointsImpl") For i = 0 To UBound( vertex) - 1 gp.addPoint vertex(i).x, vertex(i).y Next rc.setPoints( gp) ' step 2 Set cLayer = Map.getCosmeticLayer() Set pl = cLayer.getPolygons() ' step 3 Set symbol = rc.getSymbol() ' step 4 color = Server.CreateObject("RMIMS.Utils").createColor(0, 0, 255) ' blue symbol.setColor rmBrushColor, color symbol.setBrushStyle("brush:bdiagonal") ' step 5 pl.add(rc)