Public Property Favicon() As FaviconData
        Get
            Return icon
        End Get
        Set(ByVal value As QuickBrowser.FaviconData)
            If value IsNot Nothing Then
                ImageAnimator.StopAnimate(icon.Image, Nothing)
                icon = value
                If ImageAnimator.CanAnimate(icon.Image) Then _
                  ImageAnimator.Animate(icon.Image, Nothing) 
            [...]
            Me.Parent.Invalidate()
            Me.Parent.Refresh()
        End Set
    End Property

WithEvents AnimateTimer As New Timer With {.Interval = 100, .Enabled = False}
 
   Protected Overrides Sub OnPaint(ByVal e As _
     System.Windows.Forms.PaintEventArgs)
       MyBase.OnPaint(e)
       [...]
       AnimateTimer.Enabled = ImageAnimator.CanAnimate(img)
       [...]
   End Sub
 
   Private Sub tick() Handles AnimateTimer.Tick
       Me.Invalidate()
   End Sub