Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim g As Graphics = PictureBox1.CreateGraphics
        Dim rec As New Rectangle(50, 20, 200, 200)
        g.FillPie(New SolidBrush(Color.Red), rec, 0, 100)
        g.FillPie(New SolidBrush(Color.Green), rec, 100, 60)
        g.FillPie(New SolidBrush(Color.Yellow), rec, 160, 200)
        Me.Refresh()
    End Sub