Use set_ShapeFillColor new version

i try it but paint all the polygons, i want to control which polygons to paint for example the 10,07,20 of the CVE_ENT index with a query, is it possible?
regards and thank you

    AxMap1.Projection = tkMapProjection.PROJECTION_NONE
    AxMap1.GrabProjectionFromData = True

    Dim fieldIndex As New Integer
    fieldIndex = sfWorld.Table.FieldIndexByName("CVE_ENT")
    sfWorld.Categories.Generate(fieldIndex, tkClassificationType.ctUniqueValues, 0)

    Dim scheme = New Mapwingis.ColorScheme()
    scheme.SetColors2(tkMapColor.Blue, tkMapColor.Yellow)
    sfWorld.Categories.ApplyColorScheme(tkColorSchemeType.ctSchemeRandom, scheme)


I want something like that, can you help me with an example or code please