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