' 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)