Прозрачность Label над Picturebox

Label1.Parent = PictureBox1

UICheckBox1.Parent = PictureBox1

Imports System.Drawing.Drawing2D
Public Class UICheckBox
    'by Gelo123321 
    Inherits Control 'Наследуем Control
    '
    Public CheckedMe As CheckedClass
    Dim B As Bitmap, G As Graphics
    Dim C1, C2, C3, C4 As Color, P1, P2 As Pen, B1, B2, B3, B4 As Brush
    <System.ComponentModel.Description("Состояние UICheckBox")> _
    Public Property Checked() As CheckedClass
        Get
            Checked = CheckedMe
        End Get
        Set(ByVal value As CheckedClass)
            CheckedMe = value
            If CheckedMe = CheckedClass.Yes Then
                State = 0
            ElseIf CheckedMe = CheckedClass.No Then
                State = 1
            End If
            Invalidate()
        End Set
    End Property
    <System.ComponentModel.Description("Цвет фона UICheckBox")> _
    Public Property FillColor() As Color
        Get
            FillColor = C1
        End Get
        Set(ByVal value As Color)
            C1 = value
            Invalidate()
        End Set
    End Property
    <System.ComponentModel.Description("Цвет активного UICheckBox")> _
    Public Property ActivatedColor() As Color
        Get
            ActivatedColor = C2
        End Get
        Set(ByVal value As Color)
            C2 = value
            Invalidate()
        End Set
    End Property
#Region "Enums"
    Public Enum CheckedClass As Integer
        No = 0
        Yes = 1
    End Enum
#End Region
    '
    Sub New()
        SetStyle(ControlStyles.AllPaintingInWmPaint Or ControlStyles.UserPaint, True)
        C2 = Color.FromArgb(32, 32, 32)
        C3 = Color.FromArgb(230, 230, 230)
        C4 = Color.FromArgb(210, 210, 210)
        B3 = New SolidBrush(Color.FromArgb(96, 96, 96))
        B4 = New SolidBrush(Color.FromArgb(32, 32, 32))
        Font = New Font("Calibri", 10.0F) 'Шрифт тексту
        P1 = New Pen(C3)
        P2 = New Pen(C4)
        B1 = New SolidBrush(C1)
        B2 = New SolidBrush(C2)
    End Sub
    Private State = 1, St As Integer
    Protected Overrides Sub OnMouseLeave(e As EventArgs)
        St = 0
        Invalidate()
    End Sub
    Protected Overrides Sub OnMouseEnter(e As EventArgs)
        St = 1
        Invalidate()
    End Sub
    Protected Overrides Sub OnMouseClick(e As MouseEventArgs)
        If State = 0 Then
            State = 1
        Else : State = 0
        End If
        Invalidate()
    End Sub
    Protected Overrides Sub OnParentChanged(ByVal e As System.EventArgs)
        MyBase.OnParentChanged(e)
        '
        If Parent Is Nothing Then Return
        C1 = Me.Parent.BackColor
        '
    End Sub
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        B = New Bitmap(Width, Height)
        G = Graphics.FromImage(B)
        '
        B1 = New SolidBrush(C1)
        B2 = New SolidBrush(C2)
        '
        G.FillRectangle(B1, ClientRectangle)
        G.FillRectangle(B1, 5, 5, 10, 10)
        G.DrawLine(P1, 2, 2, 17, 2)
        G.DrawLine(P1, 17, 17, 2, 17)
        G.DrawLine(P1, 2, 17, 2, 2)
        G.DrawLine(P1, 17, 2, 17, 17)
        '
        Dim S As SizeF = G.MeasureString(Text, Font)
        G.DrawString(Text, Font, B3, 20, (Me.Height - S.Height) / 2)
        '
        Select Case State
            Case 0 'Элемент управления активен
                G.FillRectangle(B2, 5, 5, 10, 10)
                G.DrawString(Text, Font, B4, 20, (Me.Height - S.Height) / 2)
                CheckedMe = CheckedClass.Yes
            Case 1 'Элемент управления не активен
                G.FillRectangle(B1, 5, 5, 10, 10)
                G.DrawString(Text, Font, B3, 20, (Me.Height - S.Height) / 2)
                CheckedMe = CheckedClass.No
        End Select
        Select Case St
            Case 0 'Мышка на элементе управления
                G.DrawLine(P1, 2, 2, 17, 2)
                G.DrawLine(P1, 17, 17, 2, 17)
                G.DrawLine(P1, 2, 17, 2, 2)
                G.DrawLine(P1, 17, 2, 17, 17)
            Case 1 'Мышка вышла за границы элемента управления
                G.DrawLine(P2, 2, 2, 17, 2)
                G.DrawLine(P2, 17, 17, 2, 17)
                G.DrawLine(P2, 2, 17, 2, 2)
                G.DrawLine(P2, 17, 2, 17, 17)
        End Select
        Me.Width = S.Width + 20
        Me.Height = 20
        e.Graphics.DrawImage(B, 0, 0)
        B.MakeTransparent(C1)
        G.Dispose()
        B.Dispose()
    End Sub
    Protected Overrides Sub OnPaintBackground(ByVal e As PaintEventArgs)
    End Sub
End Class

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        UiCheckBox1.Parent = PictureBox1
        UiCheckBox1.Location = New Point(10, 10)
    End Sub

Class UC
    Inherits UserControl
    Dim BM As New Bitmap(100, 50)
    Dim Br As New SolidBrush(Color.FromArgb(80, 0, 0, 0))
    Sub New()
        DoubleBuffered = True
        Me.Width = 100
        Me.Height = 50
        Dim G As Graphics = Graphics.FromImage(BM)
        G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        G.FillEllipse(Br, New Rectangle(13, 13, 30, 30))
        G.FillEllipse(Brushes.Red, New Rectangle(10, 10, 30, 30))
        BackgroundImage = BM
    End Sub
    Protected Overrides Sub OnMouseMove(ByVal e As System.Windows.Forms.MouseEventArgs)
        WndProc(Message.Create(Me.Handle, &HA1, CType(2, IntPtr), 0))
        Me.Capture = False
    End Sub
End Class