Hallo Marcus,

wie geht den der Sourcecode für einen Farbverlauf in einem Formular.
Ich möchte z.B. das die Farbe hell beginnt und nach unten dunkler wird.

Gruß
Chara

So:

<pre><FONT SIZE=1 FACE=Courier New><FONT COLOR=#000080>Private</FONT> <FONT COLOR=#000080>Sub</FONT> Form_Paint()
<FONT COLOR=#008000>' Einen Farbverlauf auf dem Formular erzeugen</FONT>
<FONT COLOR=#000080>Dim</FONT> i <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Integer</FONT>
<FONT COLOR=#000080>Dim</FONT> r <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> b <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>
<FONT COLOR=#000080>Dim</FONT> g <FONT COLOR=#000080>As</FONT> <FONT COLOR=#000080>Long</FONT>

Me.ScaleMode = vbPixels
Me.DrawStyle = vbInsideSolid
Me.DrawMode = vbCopyPen
Me.DrawWidth = 2
Me.ScaleHeight = 256

<FONT COLOR=#000080>For</FONT> i = 0 <FONT COLOR=#000080>To</FONT> 255
r = i * 0.258823529411765
g = i * 0.258823529411765
b = i * -4.70588235294118E-02
Me.<FONT COLOR=#000080>Line</FONT> (0, i)-(Me.Width, i - 1), RGB(11 + r, 33 + g, 123 + b), B
<FONT COLOR=#000080>Next</FONT> i
<FONT COLOR=#000080>End</FONT> <FONT COLOR=#000080>Sub</FONT>

</FONT></pre>

Die Farben kannst du frei wählen.

r = i * 0.258823529411765
g = i * 0.258823529411765
b = i * -4.70588235294118E-02
Me.Line (0, i)-(Me.Width, i - 1), RGB(11 + r, 33 + g, 123 + b), B

In "RGB(11 + r, 33 + g, 123 + b)" musst du die drei Zahlen (hier 11, 33 und 123) durch die RGB Werte der Farbe ersetzen, die oben anfangen soll. Beispiel:

Möchtest du, dass der Verlauf oben blau anfängt, so schreibst du RGB(0 + r, 0 + g, 255 + b).

Die Farbe unten wird durch die drei Zahlen hinter "i *" festgelegt (auch RGB, also Red, Green, Blue). Damit musst du allerdings mal etwas experimentieren, da ich da auch nicht so recht durchblicke.