Partial Public Class NonFlickerPanel
    Inherits Panel
 
    Private _img As Image = New Bitmap(20, 20) 'Default
 
    Public Property Img As Image
        Set(value As Image)
            If value Is Nothing Then Exit Property
            _img = value
            Invalidate()
        End Set
        Get
            Return _img
        End Get
    End Property
 
    Public Sub New()
        DoubleBuffered = True
        Me.SetStyle(ControlStyles.Opaque, True)
        Me.SetStyle(ControlStyles.OptimizedDoubleBuffer, False)
        Me.SetStyle(ControlStyles.SupportsTransparentBackColor, True)
        Me.SetStyle(System.Windows.Forms.ControlStyles.ResizeRedraw, True)
        MyBase.BackColor = System.Drawing.Color.Transparent
    End Sub
 
 
    Protected Overrides ReadOnly Property CreateParams() As _
      System.Windows.Forms.CreateParams
        Get
            Dim cp As CreateParams = MyBase.CreateParams
            cp.ExStyle = cp.ExStyle Or &H20  ' Turn on WS_EX_TRANSPARENT
            Return cp
        End Get
    End Property
 
 
    Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
 
        MyBase.OnPaint(e)
 
        'Zoomen und Zentrieren des übergebenen Bildes
        Dim zfw As Double = Me.Width / _img.Width
        Dim zfh As Double = Me.Height / _img.Height
        Dim zf As Double = Math.Min(zfh, zfw)
        Dim w As Integer = CInt(zf * _img.Width)
        Dim h As Integer = CInt(zf * _img.Height)
        Dim l As Integer = CInt((Me.Width - w) / 2)
        Dim t As Integer = CInt((Me.Height - h) / 2)
        Dim dr As New Rectangle(l, t, w, h)
 
        e.Graphics.DrawImage(_img, dr)
    End Sub
End Class