You did not supply an As clause with the keyword WithEvents. Declare the variable as the specific class that can raise the events.
Error ID: BC30412
Add the As clause that specifies the class that can raise the events.