Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim gP As GraphicsPath = New GraphicsPath()
 
        gP.AddEllipse(0, 0, Me.PictureBox1.Width, Me.PictureBox1.Height)
 
        Dim bBrush As PathGradientBrush = New PathGradientBrush(gP)
        bBrush.CenterPoint = New Point(Me.tb_x.Value, Me.tb_y.Value)
        bBrush.CenterColor = System.Drawing.Color.FromArgb(CType(CType(255, _
          Byte), Integer), CType(CType(255, Byte), Integer), CType(CType(255, _
          Byte), Integer), CType(CType(255, Byte), Integer))
        bBrush.SurroundColors = New Color() {m_color}
        e.Graphics.FillRectangle(bBrush, 0, 0, Me.Width, Me.Height)
 
    End Sub