private ushort curPerc = 0;
 
            double multiplier = this.curPerc / 100.0;
            Color b = Color.FromArgb(
                this.BackColor.R + Convert.ToInt32(
                (this.ForeColor.R - this.BackColor.R) * multiplier),
                this.BackColor.G + Convert.ToInt32(
                (this.ForeColor.G - this.BackColor.G) * multiplier),
                this.BackColor.B + Convert.ToInt32(
                (this.ForeColor.B - this.BackColor.B) * multiplier));

    Private curPerc As UShort = 0
 
        Dim multiplier As Double = Me.curPerc / 100
        Dim b As Color = Color.FromArgb( _
            Me.BackColor.R + Convert.ToInt32( _
            (Me.ForeColor.R - Me.BackColor.R) * multiplier), _
            Me.BackColor.G + Convert.ToInt32( _
            (Me.ForeColor.G - Me.BackColor.G) * multiplier), _
            Me.BackColor.B + Convert.ToInt32( _
            (Me.ForeColor.B - Me.BackColor.B) * multiplier))

Zitat:

System.OverflowException was unhandled Message="Arithmetic operation resulted in an overflow." Source="TextFader" StackTrace: at vbtricks.TextFader.TextFader_Paint(Object sender, PaintEventArgs e) in ...

Web: http://www.vbtricks.de.vu/

VBTricks.de.vu. Meine Webseite zu VB und anderen Programmiersprachen. Verschiedene fortgeschrittene OCXe und komplette Projekte sind im Sourcecode verf?gbar.