Private Sub Form1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        e.Graphics.FillPie(Brushes.Blue, Me.ClientRectangle, 0, 360)
    End Sub
 
    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Resize
        Me.Invalidate()
    End Sub