Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports Infragistics.Win
Protected Overrides Sub DrawBackColor(ByRef drawParams As UIElementDrawParams)
' 背景を描画します
MyBase.DrawBackColor(drawParams)
' コントロールの上にハッチ パターンを描画します
Dim brush As HatchBrush = New HatchBrush(HatchStyle.Percent50, Color.White, Color.Transparent)
drawParams.Graphics.FillRectangle(brush, drawParams.InvalidRect)
brush.Dispose()
End Sub