Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim g As Graphics = Me.CreateGraphics
        Dim p1 As New Pen(Color.Black)
        p1.Width = 5
        ' der zu übermalende Winken
        g.DrawArc(p1, 100, 100, 200, 200, -180, 156)
 
        ' andere Winken
        g.DrawArc(p1, 10, 100, 200, 200, -180, 156)
        g.DrawArc(p1, 10, 10, 200, 200, -180, 156)
 
        Threading.Thread.Sleep(500) ' kleine Pause um Effekt zu sehen.
 
        Dim tbr As New TextureBrush(Me.BackgroundImage)
        Dim p2 As Pen = New Pen(tbr)
        p2.Width = 5
        g.DrawArc(p2, 100, 100, 200, 200, -180, 156)
    End Sub