Public Class Form1
    Dim WithEvents Btn1 As New Button With {.Width = 130, .Height = 50, .Parent _
      = Me}
    Dim Btn2 As New Button With {.Left = 150, .Width = 130, .Height = 50, _
    .Parent = Me}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        AddHandler Btn2.Paint, AddressOf Btn2_Paint
    End Sub
 
    Private Sub Btn1_Paint(sender As Object, e As PaintEventArgs) Handles _
      Btn1.Paint
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.FillEllipse(Brushes.Red, e.ClipRectangle)
    End Sub
 
    Private Sub Btn2_Paint(sender As Object, e As PaintEventArgs)
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.FillEllipse(Brushes.Blue, e.ClipRectangle)
    End Sub
End Class