Public Class Label_Transparent
    Inherits System.Windows.Forms.Label
 
    Protected Overrides ReadOnly Property CreateParams() As System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20
            Return cp
        End Get
    End Property
 
    Public Sub New()
        Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        Me.SetStyle(ControlStyles.ResizeRedraw, True)
        Me.SetStyle(ControlStyles.UserPaint, True)
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, False)
    End Sub
 
    Protected Overrides Sub OnPaintBackground(ByVal pevent As System.Windows.Forms.PaintEventArgs)
        If MyBase.BackgroundImage IsNot Nothing Then
            MyBase.OnPaintBackground(pevent)
        End If
    End Sub
 
    Protected Overrides Sub OnForeColorChanged(ByVal e As System.EventArgs)
        Me.Refresh()
    End Sub
End Class