New Post: Need help with code

Hello,

I have switched from 4.6 to 4.9 but i need help changing some code.

I used following code to add colors in my shapefile:

Dim region as string
Dim fieldnum as integer
Dim shapenum as integer
fieldnum = 10
For shapenum = 0 To sf.numshapes -1
region = sf.cellvalue(fieldnum, shapenum)
Select case region

Case "0" 
Axmap1.set_shapefillcolor(hnd, shapenum, convert.ToUnit32(RGB(255, 0, 0)

End select

Now i would like to know what code i should use to get this to work in 4.9

I tried with shapefilecolorscheme but i can not get it to work.

Could any one help me out?


Greetz Wolf