' Farbverlauf der Form
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        Dim oRect As New Rectangle(0, 0, Me.Width, Me.Height)
 
        Dim oBrush As New LinearGradientBrush(oRect, Color.WhiteSmoke, _
          Color.Beige, LinearGradientMode.ForwardDiagonal)
 
        ' Hintergrund-Farbverlauf anzeigen
        e.Graphics.FillRectangle(oBrush, oRect)
    End Sub

Hänk

(Wer früh aufsteht hat mehr vom Tag)