Imports System.Drawing.Drawing2D
 
' Brush erzeugen
Dim lb As New LinearGradientBrush(Me.ClientRectangle, Color.White, Color.White, _
  LinearGradientMode.Vertical)
 
' ColorBlend für mehrfarbigen Farbverlauf definieren
Dim cb As New ColorBlend()
With cb
  .Colors = New Color() {Color.White, Color.Red, Color.Green, Color.Blue, _
    Color.White} ' Farben
  .Positions = New Single() {0.0F, 0.35F, 0.62F, 0.78F, 1.0F} ' Positionen von 
  ' 0 bis 1
End With
 
lb.InterpolationColors = cb
 
e.Graphics.FillRectangle(lb, Me.ClientRectangle)

Ralf