'Declaration
Function PaintCell( _
ByVal As Graphics, _
ByVal As Rectangle, _
ByVal As Appearance, _
ByVal As Object, _
ByVal As Boolean, _
ByVal As Boolean, _
ByVal As Single _
) As PrePaintTextResult
'使用法
Dim instance As IPrePaintTextConditionalFormattingRule
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 value As PrePaintTextResult
value = instance.PaintCell(g, r, appearance, value, isSelected, isLocked, zoomFactor)