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 pu As Point() = {New Point(30, 30), New Point(40, 5), New Point(50, _
        30), New Point(75, 40), _
                             New Point(50, 50), New Point(40, 75), New Point( _
                             30, 50), New Point(5, 40)}
        e.Graphics.SmoothingMode = SmoothingMode.AntiAlias
        Using tb As New LinearGradientBrush(New Rectangle(0, 0, 5, 5), _
          Color.Yellow, Color.Red, LinearGradientMode.Vertical)
            ' Using tb As New TextureBrush(New Bitmap("Dein Bild als Brush"))
            e.Graphics.FillPolygon(tb, pu)
            e.Graphics.FillEllipse(tb, 50, 50, 50, 50)
        End Using
    End Sub
End Class