Imports System.Drawing.Drawing2D

  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, System.Drawing.Color.Blue, _
          Color.White, LinearGradientMode.Vertical)
        e.Graphics.FillRectangle(oBrush, oRect)

_________________________________________________________________

sachen gibts die gibs gar nicht, und wenns die nicht geben soll, dann werden sie gemacht.