i have a problem with shading my polygons in vb2008

i use solidbrush for coloring them

public function shade( clr as color , f# )

   dim r% , g% , b%  ''integers oldstyle

    r = clr.r  X  f

    b = clr.g  X  f

    b = clr.b  X  f

    return system.drawing.color.fromargb( 255 , r , g , b )

end function

X    multiply but this keyboard is wrong again

so i cant on the moment use the tags

when i use this i get black polygon not shaded ones

if 255 is 0 to

in vb5 this shading works but no polygons there