Protected Overrides Sub OnPaint(ByVal e As _
      System.Windows.Forms.PaintEventArgs)
        'Farbverlauf
        Dim rc As New Rectangle(0, 0, Me.Width, Me.Height)
        Dim b As New LinearGradientBrush(rc, ColorTranslator.FromHtml( _
          "#F3F5F6"), ColorTranslator.FromHtml("#E6E2CF"), _
          LinearGradientMode.ForwardDiagonal)
        e.Graphics.FillRectangle(b, rc)
        'Rahmen
        ControlPaint.DrawBorder3D(e.Graphics, e.ClipRectangle, _
          Border3DStyle.Raised)
    End Sub