New Post: Symbolization

Hi,

I'm trying to symbolize my shapefile according to some field values but after trying dozens of ways, I can't manage to get a result. All my points look the same with a default diamond shape.

Here is my code, any help would be much appreciated !

Olivier

          Dim ct1 As MapWinGIS.ShapefileCategory
            ct1 = .Categories.Add("V1")
            ct1.Expression = "[REF] = 'V1'"
            ct1.DrawingOptions.Visible = True
            ct1.DrawingOptions.PointType = MapWinGIS.tkPointSymbolType.ptSymbolStandard
            ct1.DrawingOptions.PointShape = MapWinGIS.tkPointShapeType.ptShapeArrow

            ct1.DrawingOptions.PointSidesCount = 5                                       'number of sides
            ct1.DrawingOptions.PointSidesRatio = 0.5                                     'side ratio
            ct1.DrawingOptions.PointSize = 20                                             'point size
            ct1.DrawingOptions.PointRotation = 18                                        'point rotation
            ct1.DrawingOptions.FillVisible = True                                        'show the fill

            Dim ct2 As MapWinGIS.ShapefileCategory
            ct2 = .Categories.Add("V2")
            ct2.Expression = "[REF] = 'V2'"
            ct2.DrawingOptions.PointType = MapWinGIS.tkPointSymbolType.ptSymbolStandard
            ct2.DrawingOptions.PointShape = MapWinGIS.tkPointShapeType.ptShapeCircle

            'ct.DrawingOptions.PointSidesCount = 5                                       'number of sides
            ct2.DrawingOptions.PointSidesRatio = 0.5                                     'side ratio
            ct2.DrawingOptions.PointSize = 20                                             'point size
            'ct.DrawingOptions.PointRotation = 18                                        'point rotation
            ct2.DrawingOptions.FillVisible = True                                        'show the fill

            Dim ct3 As MapWinGIS.ShapefileCategory
            ct3 = .Categories.Add("V3")
            ct3.Expression = "[REF] = 'V3'"
            ct3.DrawingOptions.PointType = MapWinGIS.tkPointSymbolType.ptSymbolStandard
            ct3.DrawingOptions.PointShape = MapWinGIS.tkPointShapeType.ptShapeFlag

            ct3.DrawingOptions.PointSidesCount = 4                                       'number of sides
            ct3.DrawingOptions.PointSidesRatio = 0.5                                     'side ratio
            ct3.DrawingOptions.PointSize = 20                                             'point size
            ct3.DrawingOptions.PointRotation = 18                                        'point rotation
            ct3.DrawingOptions.FillVisible = True                                        'show the fill

            .Categories.ApplyExpressions()