Label над ProgressBar-ом с прозрачным фоном

Public Class ProgBar
 
    Dim PBMaxValue, PBValue, PBWidth As Integer
    Dim BM As Bitmap, Ctrl As Control
    Dim FirstColor, SecondColor, TColor, BordColor, BckColor As Color
    Dim Initialized As Boolean = False
 
    Sub New() 'Задаем дефолтные значения
        PBMaxValue = 200
        PBWidth = 200
        PFirstColor = Color.Blue
        PSecondColor = Color.White
        TextColor = Color.Red
        BorderColor = Color.Blue
        BackColor = Color.White
    End Sub
 
    Private Sub AcceptProperties() 'Проверяем, проинициализирован ли родительский контролл
        If Initialized = True Then
            Ctrl.Width = PWidth
            Values = PBValue
        End If
    End Sub
 
    Public ReadOnly Property PHeight() As Integer 'Высота индикатора, только для чтения
        Get
            Return 22
        End Get
    End Property
 
    Public Sub Add(ByVal Container As Control, ByVal Width As Integer)
        With Container
            .Width = Width
            .Height = PHeight
            .BackgroundImage = BM
        End With
        Ctrl = Container
        PWidth = Width
        Values = 0
        Initialized = True 'Теперь точно знаем, что индикатор куда-то врисован
    End Sub
 
    Public Property BackColor() As Color 'Цвет фона индикатора
        Get
            Return BckColor
        End Get
        Set(ByVal value As Color)
            BckColor = value
            AcceptProperties() 'AcceptProperties будет встречаться во всех свойствах для того, чтобы все их можно было применить прямо в момент выполнения прогресса
        End Set
    End Property
 
    Public Property BorderColor() As Color 'Цвет бордюра
        Get
            Return BordColor
        End Get
        Set(ByVal value As Color)
            BordColor = value
            AcceptProperties()
        End Set
    End Property
 
    Public Property TextColor() As Color 'Цвет цифры, отображающей прогресс индикатора
        Get
            Return TColor
        End Get
        Set(ByVal value As Color)
            TColor = value
            AcceptProperties()
        End Set
    End Property
 
    Public Property PFirstColor() As Color 'Первый цвет градиента (нижняя часть индикатора)
        Get
            Return FirstColor
        End Get
        Set(ByVal value As Color)
            FirstColor = value
            AcceptProperties()
        End Set
    End Property
 
    Public Property PSecondColor() As Color 'Второй цвет градиента (верхняя часть индикатора)
        Get
            Return SecondColor
        End Get
        Set(ByVal value As Color)
            SecondColor = value
            AcceptProperties()
        End Set
    End Property
 
    Public Property PWidth() As Integer 'Ширина индикатора
        Get
            Return PBWidth
        End Get
        Set(ByVal value As Integer)
            If value < 10 Then value = 10
            PBWidth = value
            AcceptProperties()
        End Set
    End Property
 
    Public Property MaxValue() As Integer 'Максимальное значение индикатора
        Get
            Return PBMaxValue
        End Get
        Set(ByVal value As Integer)
            PBMaxValue = value
            AcceptProperties()
        End Set
    End Property
 
    Public Property Values() As Integer 'Текущее значение индикатора
        Get
            Return PBValue
        End Get
        Set(ByVal value As Integer)
            PBValue = value
            If PBValue > MaxValue Then
                ErrorExc("Значение Values не может превышать MaxValue")
                Exit Property
            End If
            Progress(PBValue)
        End Set
    End Property
 
    Private Sub Progress(ByVal Prog As Integer) 'Процедура отображения (прорисовки) индикатора
        Prog = (PWidth - 6) / PBMaxValue * Prog
        BM = New Bitmap(PBWidth, 22)
        Dim G As Graphics = Graphics.FromImage(BM)
        Dim BrBorder As New SolidBrush(BordColor)
        Dim BrBack As New SolidBrush(BckColor)
        G.FillRectangle(BrBorder, New Rectangle(0, 0, PBWidth - 2, 20))
        G.FillRectangle(BrBack, New Rectangle(2, 2, PBWidth - 6, 16))
        G.DrawLine(Pens.Gray, 1, 21, PBWidth - 1, 21)
        G.DrawLine(Pens.Gray, PBWidth - 1, 1, PBWidth - 1, 21)
        Dim grad As New System.Drawing.Drawing2D.LinearGradientBrush(New Rectangle(0, 0, PBMaxValue, 16), SecondColor, FirstColor, System.Drawing.Drawing2D.LinearGradientMode.Vertical)
        Dim PBM As New Bitmap(PBWidth - 6, 16)
        Dim GP As Graphics = Graphics.FromImage(PBM)
        GP.FillRectangle(grad, New Rectangle(0, 0, Prog, 16))
        G.DrawImage(PBM, New Point(2, 2))
        Dim M As Integer = G.MeasureString(Int((Prog / (PBWidth - 6)) * 100) & "%", New Font("Arial", 10, FontStyle.Bold, GraphicsUnit.Point)).Width
        Dim Brushs As New SolidBrush(TColor)
        G.DrawString(Int((Prog / (PBWidth - 6)) * 100) & "%", New Font("Arial", 10, FontStyle.Bold, GraphicsUnit.Point), Brushs, (PBWidth - M) / 2, 3)
        Ctrl.BackgroundImage = BM
    End Sub
 
    Sub ErrorExc(ByVal Text As String) 'Процедура обработки ошибки в случае превышения значения над максимальным
        BM = New Bitmap(PBWidth, 22)
        Dim ErrGr As Graphics = Graphics.FromImage(BM)
        ErrGr.Clear(Color.Red)
        ErrGr.DrawString(Text, New Font("Tahoma", 8, FontStyle.Italic + FontStyle.Bold + FontStyle.Underline, GraphicsUnit.Point), Brushes.White, New Rectangle(0, 0, BM.Width, BM.Height))
        Ctrl.BackgroundImage = BM
    End Sub
 
End Class