Error:

'WithEvents' variables can only be typed as classes, interfaces or type parameters with class constraints

Background:

Public Class Tadpole(Of T As IVisibleChanged, P As IVisibleChanged)
  Private WithEvents _Tad As T ' ERROR '
  Private WithEvents _Pole As P ' ERROR '

  Public Property Tad() As T ...

  Public Property Pole() As P ...

End Class

''' IVisibleChanged '''
Public Interface IVisibleChanged
  Property Visible() As Boolean
  Event VisibleChanged As EventHandler
End Interface

Workaround:

a. Use AddHandler to handle events defined in a structure.

EDIT

b. use Private WithEvents _Tad AsIVisibleChanged (M.A. Hanin)

c. ?