Public Class Form1
    Private WithEvents Pb As New PictureBox With {.Dock = DockStyle.Fill, _
      .Parent = Me}
 
    Private Sub Pb_Paint(ByVal sender As Object, ByVal e As PaintEventArgs) _
      Handles Pb.Paint
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.Clear(Color.Black)
        Dim r As New Rectangle(30, 18, 220, 220)
        Using p As New Pen(Brushes.Red)
            For i As Int32 = 20 To 4 Step -4
                p.Width = i
                p.Color = Color.FromArgb(255 - i * 5, 255 - i * 5, 0)
                e.Graphics.DrawArc(p, r, 330, 300)  ' 300 Grad Gelb
                p.Color = Color.FromArgb(255 - i * 5, 0, 255 - i * 5)
                e.Graphics.DrawArc(p, r, 270, 60)   ' 60 Grad Pink
            Next
        End Using
    End Sub
End Class