Preencher Circulo

[Chamuanza]

Bem Aja a Todos

Como faço para preencher circulo neste código

 Private Sub Panel1_Paint(sender As Object, e As PaintEventArgs) Handles Panel1.Paint

        e.Graphics.DrawEllipse(Pens.Red, 0, 0, 30, 30)

    End Sub

Obrigado desde já

[Andrepereira9]

Boas

Experimenta isto

Dim coordenada_x As Integer = 0
Dim coordenada_y As Integer = 0
Dim largura As Integer = 30
Dim altura As Integer = 30
Dim cor As SolidBrush = New SolidBrush(Color.Red)

e.Graphics.FillEllipse(cor, coordenada_x, coordenada_y, largura, altura)

  Edited December 8, 2021 at 04:29 PM by Andrepereira9

[Chamuanza]

Muito Obrigado pela dica Andrepereira9

BOAS FESTAS  e tudo de Bom