'Declaration
Sub DrawLine( _
ByVal As Pen, _
ByVal As Single, _
ByVal As Single, _
ByVal As Single, _
ByVal As Single _
)
'使用法
Dim instance As IBorderGraphics
Dim pen As Pen
Dim x1 As Single
Dim y1 As Single
Dim x2 As Single
Dim y2 As Single
instance.DrawLine(pen, x1, y1, x2, y2)