'Declaration
Sub PaintText( _
ByVal As Graphics, _
ByVal As Rectangle, _
ByVal As Appearance, _
ByVal As Object, _
ByVal As Boolean, _
ByVal As Boolean, _
ByVal As Single, _
ByVal As ExtraRendererSettings, _
ByVal As Boolean, _
ByVal As Integer _
)
'使用法
Dim instance As ITextOrientationSupport2
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
Dim diagonalLine As Boolean
Dim adjustTop As Integer
instance.PaintText(g, r, appearance, value, isSelected, isLocked, zoomFactor, extraRendererSettings, diagonalLine, adjustTop)