Imports System.Drawing, System.Drawing.Drawing2D, System.Drawing.Text
 
Public Class CustomGroupBox
  Inherits GroupBox
 
  Private _bordercolor As Color
  Private _borderwidth As Short
  Private _borderstyle As ButtonBorderStyle
  Private _textalign As StringAlignment
 
  Public Sub New()
    MyBase.New()
    ' Standardwerte vorgeben
    Me._bordercolor = Color.Black
    Me._borderwidth = 1
    Me._borderstyle = ButtonBorderStyle.Solid
    Me._textalign = StringAlignment.Near
  End Sub
 
#Region " Properties "
  Public Property BorderColor() As Color
    Get
      Return Me._bordercolor
    End Get
    Set(ByVal value As Color)
      Me._bordercolor = value
    End Set
  End Property
 
  Public Property BorderWidth() As Short
    Get
      Return Me._borderwidth
    End Get
    Set(ByVal value As Short)
      Me._borderwidth = value
    End Set
  End Property
 
  Public Property BorderStyle() As ButtonBorderStyle
    Get
      Return Me._borderstyle
    End Get
    Set(ByVal value As ButtonBorderStyle)
      Me._borderstyle = value
    End Set
  End Property
 
  Public Property TextAlign() As StringAlignment
    Get
      Return Me._textalign
    End Get
    Set(ByVal value As StringAlignment)
      Me._textalign = value
    End Set
  End Property
#End Region
 
  ' Groupbox neu zeichnen
  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    With Me
      ' Textgröße ermitteln
      Dim sz As Size = TextRenderer.MeasureText(.Text, .Font)
      Dim rect As Rectangle = .ClientRectangle()
      With rect  ' das Rechteck der Box
        .Height = CType(.Height - (sz.Height / 2), Integer)
        .Y = CType(.Y + (sz.Height / 2), Integer)
        'Border zeichnen
        ControlPaint.DrawBorder(e.Graphics, rect, _
          _bordercolor, _borderwidth, _borderstyle, _
          _bordercolor, _borderwidth, _borderstyle, _
          _bordercolor, _borderwidth, _borderstyle, _
          _bordercolor, _borderwidth, _borderstyle)
        ' Text zeichnen gemäß dem Alignment
        Dim TextPosition As Rectangle = Me.ClientRectangle()
        With TextPosition
          .Width = sz.Width
          .Height = sz.Height
          Select Case _textalign
            Case StringAlignment.Near
              .X = .X + _borderwidth * 2
            Case StringAlignment.Center
              .X = (Me.ClientRectangle.Width - sz.Width) / 2
            Case StringAlignment.Far
              .X = Me.ClientRectangle.Right - .Width - _borderwidth * 2
          End Select
          With e.Graphics
            .SmoothingMode = SmoothingMode.HighQuality
            .TextRenderingHint = TextRenderingHint.ClearTypeGridFit
            .FillRectangle(New SolidBrush(Me.BackColor), TextPosition)  'Hintergrund des Texts
            .DrawString(Me.Text, Me.Font, New SolidBrush(Me.ForeColor), TextPosition)
          End With
        End With
      End With
    End With
  End Sub
 
End Class