Private Sub Form2_Paint(sender As Object, e As PaintEventArgs) Handles _
    Me.Paint
        e.Graphics.SmoothingMode = _
        System.Drawing.Drawing2D.SmoothingMode.HighQuality
        DrawProgress(e.Graphics, New Rectangle(15, 15, 250, 250), Label1.Text)
    End Sub
 
    Private Sub DrawProgress(g As Graphics, rect As Rectangle, percentage As _
      Single)
        'work out the angles for each arc
        Dim progressAngle = CSng(360 / 100 * percentage)
        Dim remainderAngle = 360 - progressAngle
 
        'create pens to use for the arcs
        Using progressPen As New Pen(Color.Green, 7), remainderPen As New Pen( _
          Color.LightGray, 7)
            'set the smoothing to high quality for better output
            g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
            'draw the blue and white arcs
            g.DrawArc(progressPen, rect, -90, progressAngle)
            g.DrawArc(remainderPen, rect, progressAngle - 90, remainderAngle)
        End Using
 
        'draw the text in the centre by working out how big it is and adjusting 
        ' the co-ordinates accordingly
        Using fnt As New Font(Me.Font.FontFamily, 36)
            Dim text As String = percentage.ToString + "%"
            Dim textSize = g.MeasureString(text, fnt)
            Dim textPoint As New Point(CInt(rect.Left + (rect.Width / 2) - ( _
              textSize.Width / 2)), CInt(rect.Top + (rect.Height / 2) - ( _
              textSize.Height / 2)))
            'now we have all the values draw the text
            g.DrawString(text, fnt, Brushes.Green, textPoint)
        End Using
    End Sub
 
    Dim i As Integer = 0
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        i = i + 1
        Label1.Text = i
        Me.Refresh()
        If i = 100 Then i = 0
    End Sub