'Declaration
Sub PaintCell( _
ByVal As PdfGraphics, _
ByVal As RectangleF, _
ByVal As Appearance, _
ByVal As Object, _
ByVal As Boolean, _
ByVal As Boolean, _
ByVal As Single _
)
'使用法
Dim instance As IPdfSupport
Dim g As PdfGraphics
Dim r As RectangleF
Dim appearance As Appearance
Dim value As Object
Dim isSelected As Boolean
Dim isLocked As Boolean
Dim zoomFactor As Single
instance.PaintCell(g, r, appearance, value, isSelected, isLocked, zoomFactor)