Public Class frmDrawing2
 
    Dim pb As New PictureBox
    Dim grp As Graphics
 
    Private Sub frmDrawing2_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load
 
        'Formular und Picturebox einrichten
        Me.Width = 400 : Me.Height = 400
        Me.FormBorderStyle = FormBorderStyle.Fixed3D
        Me.Controls.Add(pb)
        pb.Anchor = AnchorStyles.Top Or AnchorStyles.Right Or _
            AnchorStyles.Left Or AnchorStyles.Bottom
        pb.Width = Me.Width - 10
        pb.Height = Me.Height - 50
 
        'Verdecktes Bild laden
        Dim bmp As Bitmap = New Bitmap("Bilddatei angeben")
 
        'schwarze Arbeitsfläche erstellen
        pb.Image = New Bitmap(pb.Width, pb.Height)
        grp = Graphics.FromImage(pb.Image)
        grp.Clear(Color.Black)
 
        'Graphikpfad erstellen
        Dim gpath As New Drawing2D.GraphicsPath
 
        'einige Linie erstellen (jeweils als Polygon)
        Dim points(3) As Point
        For i As Integer = 20 To 200 Step 40
            points(0) = New Point(20, i)
            points(1) = New Point(20, i + 4)
            points(2) = New Point(300, i + 100)
            points(3) = New Point(304, i + 100)
            'Linie im Graphikpfad registrieren
            gpath.AddPolygon(points)
        Next i
 
        'Graphikpfad registrieren
        grp.SetClip(gpath)
 
        'Graphik in den per Graphikpfad definierten 
        'Bereichen zeichnen
        grp.DrawImage(bmp, 0, 0, bmp.Width, bmp.Height)
    End Sub
End Class