Imports System.Drawing.Drawing2D
 
Public Class Form1
 
   Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As _
     System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
 
      'XPBlue
      Dim cFrom As Color = Color.FromArgb(&HFF85ABE3)
      Dim cTo As Color = Color.FromArgb(&HFFBCD7F5)
 
      'XPSilver
      'Dim cFrom As Color = Color.FromArgb(&HFF9897B4)
      'Dim cTo As Color = Color.FromArgb(&HFFDEDEE9)
 
      'XPGreen
      'Dim cFrom As Color = Color.FromArgb(&HFFB7C593)
      'Dim cTo As Color = Color.FromArgb(&HFFE8EFCC)
 
      Dim Rect As New Rectangle(0, 0, Me.Panel1.Width, Me.Panel1.Height)
      Dim bru As New LinearGradientBrush(Rect, cFrom, cTo, _
        LinearGradientMode.Vertical)
 
      e.Graphics.FillRectangle(bru, Rect)
   End Sub
End Class

Gru?
---------------------------------------------------
Snoopy sagt - vb@rchiv find ich gut...
Schon gesehen? OSMMapViewer V2 Control