'Declaration
Sub Paint( _
ByVal As IBorderGraphics, _
ByVal As Single, _
ByVal As Single, _
ByVal As Single, _
ByVal As Single, _
ByVal As Boolean _
)
'使用法
Dim instance As IBorder3
Dim g As IBorderGraphics
Dim x As Single
Dim y As Single
Dim width As Single
Dim height As Single
Dim rightToLeft As Boolean
instance.Paint(g, x, y, width, height, rightToLeft)