Как нарисовать что-либо поверх расположенных на форме контролов?

    Private Sub Main_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
 
        Dim g As Graphics = e.Graphics
 
        g.DrawLine(New Pen(Color.Red, 5),
                   200, 600, 600, 600)
 
    End Sub

Public Class Form1
  Dim x1, y1, x2, y2 As Integer
  Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    x1 = 30 : y1 = 10 : x2 = 600 : y2 = 600
  End Sub
  Private Sub Main_Paint(sender As Object, e As PaintEventArgs) Handles Me.Paint
    Dim g As Graphics = e.Graphics
    g.DrawLine(New Pen(Color.Red, 5), x1, y1, x2, y2)
  End Sub
  Private Sub Button1_Paint(sender As Object, e As PaintEventArgs) Handles Button1.Paint
    Dim g As Graphics = e.Graphics
    g.DrawLine(New Pen(Color.Red, 5), x1 - Button1.Left, y1 - Button1.Top, x2 - Button1.Left, y2 - Button1.Top)
  End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim b As New Button With {.Location = New Point(100, 100)}
        Me.Controls.Add(b)
        ShapeContainer1.BringToFront()
    End Sub
 
    Private Sub ShapeContainer1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles ShapeContainer1.Paint
        Dim f As New Font(FontFamily.GenericSerif, 24)
        e.Graphics.DrawString("qwerty", f, Brushes.Red, New Point(100, 100))
        ShapeContainer1.Invalidate()
    End Sub

Public Class TransparentPane
 Inherits System.Windows.Forms.Control
 
 Public Sub New()
 End Sub
 
 Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
  Dim g As Graphics = e.Graphics
  g.DrawLine(Pens.Blue, 0, 0, Me.Width, Me.Height)
  g.Dispose()
 End Sub
 
#Region "Do not edit"
 Protected Sub InvalidateEx()
  If Me.Parent Is Nothing Then Return
  Dim dirtyRect As Rectangle = New Rectangle(Me.Location, Me.Size)
  Me.Parent.Invalidate(dirtyRect, True)
 End Sub
 Protected Overrides ReadOnly Property CreateParams() As CreateParams
  Get
   Dim cp As CreateParams = MyBase.CreateParams
   cp.ExStyle = cp.ExStyle Or &H20&
   Return cp
  End Get
 End Property
 Protected Overrides Sub InitLayout()
  MyBase.InitLayout()
  AddHandler Me.Parent.Paint, AddressOf Parent_Paint
 End Sub
 Private Sub Parent_Paint(ByVal sender As Object, ByVal e As PaintEventArgs)
  Me.Invalidate()
  RemoveHandler Me.Parent.Paint, AddressOf Parent_Paint
 End Sub
 Protected Overrides Sub OnPaintBackground(ByVal pevent As PaintEventArgs)
 End Sub
#End Region '"Do not edit"
End Class