Dim rc As New Rectangle(0, 0, Me.Width, Me.Height)
        Dim b As New LinearGradientBrush(rc, Farbe_1.BackColor, _
          Farbe_2.BackColor, LinearGradientMode.Vertical)
        Dim g As Graphics = Me.CreateGraphics()
 
        g.FillRectangle(b, rc)
        g.Dispose()

Hänk

(Wer früh aufsteht hat mehr vom Tag)