Надпись и чертеж поверх всех окон

Imports Microsoft.VisualBasic.PowerPacks
Public Class Form1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim canv As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
        Me.Controls.Add(canv)
        Using g As Graphics = canv.CreateGraphics
            g.DrawEllipse(Pens.Black, New Rectangle(10, 10, 20, 20))
        End Using
    End Sub
 
End Class

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitializeComponent()
        Me.BackColor = Color.BurlyWood
        Me.TransparencyKey = Color.BurlyWood
        Dim canv As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
        Me.Controls.Add(canv)
        Using g As Graphics = canv.CreateGraphics
            g.DrawEllipse(Pens.Black, New Rectangle(10, 10, 20, 20))
        End Using
    End Sub
End Class

Public Class Form1
    Private canv As New Microsoft.VisualBasic.PowerPacks.ShapeContainer
    Private g As Graphics = canv.CreateGraphics
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        InitializeComponent()
        Me.BackColor = Color.BurlyWood
        Me.TransparencyKey = Color.BurlyWood
        Me.Controls.Add(canv)
    End Sub
    Private Sub Form1_Paint(sender As Object, e As PaintEventArgs) Handles MyBase.Paint
        g.DrawEllipse(Pens.Black, New Rectangle(10, 10, 20, 20))
    End Sub
End Class