Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms. _
    PaintEventArgs) Handles MyBase.Paint
    'Pour un formulaire
    MakeGradient()
End Sub

Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows. _
    Forms.PaintEventArgs) Handles PictureBox1.Paint
    'Pour une PictureBox
    MakeGradient()
End Sub

Public Sub MakeGradient()
    'Color.Blue				'=> Couleur de départ
    'Color.AliceBlue			'=> couleur de fin
    'Drawing2D.LinearGradientMode.Vertical	'=> Sens du dégradé
    Dim objBrush As New Drawing2D.LinearGradientBrush(Me.DisplayRectangle,  _
        Color.Blue, Color.AliceBlue, Drawing2D.LinearGradientMode.Vertical)
    Dim objGraphics As Graphics = Me.CreateGraphics()

    objGraphics.FillRectangle(objBrush, Me.DisplayRectangle)
    objBrush.Dispose()
    objGraphics.Dispose()
End Sub