Imports System.Drawing.Drawing2D
Public Class Form1
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        Dim oRect As New Rectangle(0, 0, 150, 150)
        Dim oBrush As New LinearGradientBrush(oRect, Color.Yellow, Color.Red, _
          LinearGradientMode.ForwardDiagonal)
        e.Graphics.FillPie(oBrush, 0, 0, 300, 300, 0, 90)
    End Sub
End Class