Imports System.Drawing
Imports System.Drawing.Drawing2D
 
Public Class Form1
 
    Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
 
        Dim Width As Integer = Me.ClientRectangle.Width
        Dim Height As Integer = Me.ClientRectangle.Height
 
        Dim GradientBrush As PathGradientBrush
        Dim X As Integer = 0
        Dim Y As Integer = 0
 
        Dim Circle As GraphicsPath = New GraphicsPath()
        Circle.AddEllipse(0, 0, Width, Height)
 
        GradientBrush = New PathGradientBrush(Circle)
        GradientBrush.WrapMode = WrapMode.Tile
        GradientBrush.SurroundColors = New Color() {Color.Navy}
        GradientBrush.CenterColor = Color.White
 
        e.Graphics.FillRectangle(GradientBrush, X, Y, Width, Height)
 
    End Sub
 
End Class

Ralf