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