Math.Min(255, Convert.ToInt32(col.G + (255 - col.G) / 100 * fc))

    Private Function lightColor(ByVal col As Color, ByVal fc As Integer) As _
      Color
        Return Color.FromArgb(Math.Min(255, Convert.ToInt32(col.R + (255 - _
        col.R) / 100 * fc)), Math.Min(255, Convert.ToInt32(col.G + (255 - _
        col.G) / 100 * fc)), Math.Min(255, Convert.ToInt32(col.B + (255 - _
        col.B) / 100 * fc)))
    End Function

befficient - consulting & programming
Tracability Know-How seit über 5 Jahren
itac (MES.Suite) Client Programmierung