Public Class DBPanel
    Inherits Panel
    Public Sub New()
        Me.SetStyle(ControlStyles.DoubleBuffer _
        Or ControlStyles.UserPaint _
        Or ControlStyles.AllPaintingInWmPaint _
        Or ControlStyles.SupportsTransparentBackColor _
        Or ControlStyles.ResizeRedraw _
        Or ControlStyles.ContainerControl, True)
        Me.BackColor = Color.Black
    End Sub
End Class

Dim NewDBPanel As Windows.Forms.Control = New DBPanel
NewDBPanel.Location = New Point(100, 100)
NewDBPanel.Size = New Size(400, 200)
AddHandler NewDBPanel.Paint, AddressOf DBPanelPaintEvent
Me.Controls.Add(NewDBPanel)
NewDBPanel.Show()

Private Sub DBPanelPaintEvent(ByVal sender As Object, ByVal e As _
  System.Windows.Forms.PaintEventArgs)
        e.Graphics.DrawLine(Pens.Red, 10, 10, 30, 30)
End Sub