Imports Infragistics.Win
Protected Overrides Sub DrawFocus(ByRef drawParams As UIElementDrawParams)
' 境界線ボーダー内の矩形を取得します
Dim rect As Rectangle = me.RectInsideBorders
' ControlPaint クラスを使用すると、フォーカス矩形を描画します
ControlPaint.DrawFocusRectangle(drawParams.Graphics, _
rect, drawParams.AppearanceData.GetForeColor(Me.Enabled), _
drawParams.AppearanceData.GetBackColor(Me.Enabled))
End Sub