AddHandler nbRecipe.Paint, AddressOf NbRecipePaint
 
    Private Sub NbRecipePaint(ByVal sender As Object, ByVal e As PaintEventArgs)
        Dim objPen As Pen = New Pen(Color.Blue, 2)
        e.Graphics.DrawRectangle(objPen, 3, 3, sender.Width - 5, sender.Height _
          - 5)
        e.Graphics.DrawEllipse(objPen, 3, 3, sender.Width - 5, sender.Height - _
        5)
            End Sub

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

    AddHandler nbRecipe.Click, AddressOf nbRecipeClick
 
 
    Private Sub nbRecipeClick(ByVal sender As Object, ByVal e As EventArgs)
        ' Klik på tilbage knappen
        If DirectCast(sender, NButton).Name = "NcmdBackRecipe" Then
            MsgBox(DirectCast(sender, NButton).Name)
 
            For Each pan As Control In Me.Controls.OfType(Of NPanel)()
                If pan.Name = DirectCast(sender, NButton).Parent.Name Then
                    pan.Location = New Point(Me.Width, 0)
                    pan.Visible = False
                    Do While NpanCategories.Width < Me.Width
                        NpanCategories.Width += 5
                        If NpanCategories.Width > Me.Width Then _
                          NpanCategories.Width = Me.Width
                    Loop
                    NpanCategories.Visible = True
                End If
            Next
        End If
    End Sub

Private Sub NbRecipePaint(ByVal sender As Object, ByVal e As PaintEventArgs)
        Dim objPen As Pen = New Pen(Color.Blue, 2)
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.FillEllipse(Brushes.Blue, e.ClipRectangle)
    End Sub

AddHandler nbRecipe.Paint, AddressOf NbRecipePaint

Public Class ucButtons
 
    Public Sub New(ParamArray btnTexte() As String)
        InitializeComponent()
 
        Dim t As Integer
        For Each text As String In btnTexte
            t += 30
            Dim btn As New Button With _
               {.Parent = Me, .Text = text, .Top = t, .Width = 300}
            AddHandler btn.Click, AddressOf buttonclick
            AddHandler btn.Paint, AddressOf buttonpaint
        Next text
        Me.Height = t + 30
        Me.Width = 320
    End Sub
 
 
    Private Sub buttonclick(ByVal sender As Object, e As EventArgs)
        MessageBox.Show(DirectCast(sender, Button).Text & " ist angeclickt" & _
          "worden")
    End Sub
 
 
    Public Sub buttonpaint(ByVal sender As Object, e As PaintEventArgs)
 
        Using br As New SolidBrush(Color.Red), _
              brt As New SolidBrush(Color.Black)
 
            e.Graphics.FillRectangle(br, e.ClipRectangle)
 
            e.Graphics.DrawString(DirectCast(sender, Button).Text, _
                    New Font("Arial", 10), brt, _
                    e.ClipRectangle.Top + 2, e.ClipRectangle.Left + 2)
        End Using
    End Sub
End Class

Public Class frmButtons
 
    Dim ucb As New ucButtons _
         ("Wo", "liegt", "das", "Problem?") With {.Parent = Me}
 
End Class

AddHandler nbRecipe.Click, AddressOf nbRecipeClick
AddHandler nbRecipe.Paint, AddressOf NbRecipePaint