'Declaration
Sub PaintCell( _
ByVal As Graphics, _
ByVal As Rectangle, _
ByVal As Appearance, _
ByVal As Object, _
ByVal As Boolean, _
ByVal As Boolean, _
ByVal As Single, _
ByVal As ExtraRendererSettings _
)
'使用法
Dim instance As IEnhancedRenderer
Dim g As Graphics
Dim r As Rectangle
Dim appearance As Appearance
Dim value As Object
Dim isSelected As Boolean
Dim isLocked As Boolean
Dim zoomFactor As Single
Dim extraRendererSettings As ExtraRendererSettings
instance.PaintCell(g, r, appearance, value, isSelected, isLocked, zoomFactor, extraRendererSettings)