Imports Infragistics.Win
Protected Overrides Sub DrawForeground(ByRef drawParams As UIElementDrawParams)
' 前景を ControlLight で描画し、
' 境界線を ControlDark で描画します
Dim Brush As SolidBrush = New SolidBrush(SystemColors.ControlLight)
Dim colorRect As Rectangle = Me.Rect
colorRect.Inflate(-3, -3)
drawParams.Graphics.FillRectangle(Brush, colorRect)
colorRect.Width -= 1
colorRect.Height -= 1
drawParams.Graphics.DrawRectangle(SystemPens.ControlDark, colorRect)
Brush.Dispose()
End Sub