Private Sub DrawArcRectangle(ByVal e As PaintEventArgs)

    ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create rectangle to bound ellipse.
    Dim rect As New Rectangle(0, 0, 100, 200)

    ' Create start and sweep angles on ellipse.
    Dim startAngle As Single = 45.0F
    Dim sweepAngle As Single = 270.0F

    ' Draw arc to screen.
    e.Graphics.DrawArc(blackPen, rect, startAngle, sweepAngle)
End Sub

Private Sub DrawArcRectangleF(ByVal e As PaintEventArgs)

    ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create rectangle to bound ellipse.
    Dim rect As New RectangleF(0.0F, 0.0F, 100.0F, 200.0F)

    ' Create start and sweep angles on ellipse.
    Dim startAngle As Single = 45.0F
    Dim sweepAngle As Single = 270.0F

    ' Draw arc to screen.
    e.Graphics.DrawArc(blackPen, rect, startAngle, sweepAngle)
End Sub

Private Sub DrawArcInt(ByVal e As PaintEventArgs)

    ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create coordinates of rectangle to bound ellipse.
    Dim x As Integer = 0
    Dim y As Integer = 0
    Dim width As Integer = 100
    Dim height As Integer = 200

    ' Create start and sweep angles on ellipse.
    Dim startAngle As Integer = 45
    Dim sweepAngle As Integer = 270

    ' Draw arc to screen.
    e.Graphics.DrawArc(blackPen, x, y, width, height, startAngle, _
    sweepAngle)
End Sub

Private Sub DrawArcFloat(ByVal e As PaintEventArgs)

    ' Create pen.
    Dim blackPen As New Pen(Color.Black, 3)

    ' Create coordinates of rectangle to bound ellipse.
    Dim x As Single = 0.0F
    Dim y As Single = 0.0F
    Dim width As Single = 100.0F
    Dim height As Single = 200.0F

    ' Create start and sweep angles on ellipse.
    Dim startAngle As Single = 45.0F
    Dim sweepAngle As Single = 270.0F

    ' Draw arc to screen.
    e.Graphics.DrawArc(blackPen, x, y, width, height, startAngle, _
    sweepAngle)
End Sub

' 导入命名空间
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D


Public Class MainClass

  Shared Sub Main()
     Dim form1 As Form1 = new Form1
     Application.Run(form1)
  End Sub
  
End Class

Public Class Form1
  Inherits System.Windows.Forms.Form

  Public Sub New()
    MyBase.New()

    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(504, 629)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
    Me.Text = "Form1"

  End Sub

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
    Dim R1 As New Rectangle(10, 10, 40, 40)
    e.Graphics.SmoothingMode = SmoothingMode.HighQuality
    e.Graphics.ResetTransform()
    e.Graphics.TranslateTransform(200.0F, 50.0F)
    e.Graphics.DrawArc(Pens.DarkBlue, R1, 40, 160)
  End Sub
End Class