Private Sub uc_Ampel_Paint(ByVal sender As Object, ByVal e As _
   System.Windows.Forms.PaintEventArgs) Handles Me.Paint
                    Dim r As New System.Drawing.Rectangle(1, 1, Me.Width - 2, _
                    Me.Height - 2)
                    Dim cb As New System.Drawing.Drawing2D.ColorBlend
                    cb.Colors = New Color() {Color.White, Color.Red, _
                      Color.Black}
                    cb.Positions = New Single() {0, 0.7, 1}
                    Using lb As New _
                      System.Drawing.Drawing2D.LinearGradientBrush(r, _
                      Color.White, Color.White, _
                      System.Drawing.Drawing2D.LinearGradientMode.ForwardDiagon_
                      al)
                        lb.InterpolationColors = cb
                        e.Graphics.FillPie(lb, r, 0, 360)
                    End Using
  End Sub