VB.NET:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim redBrush As New Drawing.SolidBrush(Color.Red)
Dim confettiBrush As New Drawing2D.HatchBrush( _
Drawing2D.HatchStyle.LargeConfetti, Color.White, _
Color.Blue)
Dim myGradientRect As New _
Drawing.Rectangle(5, 110, 100, 100)
Dim gradient As New Drawing2D.LinearGradientBrush(myGradientRect, Color.Cyan, Color.Yellow, 45)
e.Graphics.FillRectangle(redBrush, 5, 5, 100, 100)
e.Graphics.FillRectangle(confettiBrush, 110, 5, 100, 100)
e.Graphics.FillRectangle(gradient, 5, 110, 100, 100)
End Sub
End Class
VB.NET:
Dim myGradientRect As New _
Drawing.Rectangle(5, 110, 100, 100)