'Mit dem Object Brush können Farbverläufe erstellt werden, während dessen 
' SolidBrush 'einfarbige Verläufe erstellt
 
Private bru As Brush  
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button2.Click
 
'Es wird auf dem Graphicobject zeichnet (wie eine Malerwand)
'Diese "Malerwand" , also die Controls, können oft diese mit  
' Controlxy.CreateGraphics
'angeben
        Dim gr As Graphics = Panel1.CreateGraphics
 
' Brush erstellen
        bru = New Drawing2D.LinearGradientBrush(New Point(0, 0), New Point(100, _
          100), Color.Blue, Color.Red)
 
'Auf dem Graphicobject den Brush anwenden
        gr.FillRectangle(bru, 0, 0, 100, 100)
    End Sub
 
Gruss
Lars