'Declaration
Protected Overrides Sub PaintSpecialActiveSelection( _
ByVal As Graphics, _
ByVal As Rectangle, _
ByVal As Color, _
ByVal As Appearance _
)
'使用法
Dim instance As FlatRowHeaderRenderer
Dim g As Graphics
Dim r As Rectangle
Dim color As Color
Dim appearance As Appearance
instance.PaintSpecialActiveSelection(g, r, color, appearance)