Sub DrawArc( _
   ByVal cornerPen As Pen, _
   ByVal x As Single, _
   ByVal y As Single, _
   ByVal width As Integer, _
   ByVal height As Integer, _
   ByVal startAngle As Integer, _
   ByVal sweepAngle As Integer _
) 

Dim instance As IBorderGraphics
Dim cornerPen As Pen
Dim x As Single
Dim y As Single
Dim width As Integer
Dim height As Integer
Dim startAngle As Integer
Dim sweepAngle As Integer
 
instance.DrawArc(cornerPen, x, y, width, height, startAngle, sweepAngle)

void DrawArc( 
   Pen cornerPen,
   float x,
   float y,
   int width,
   int height,
   int startAngle,
   int sweepAngle
)