Problem with events

BlitzMax Forums/BlitzMax Programming/Problem with events

Does anybody knows why this code is not throwing properly the event EVENT_GADGETPAIN when the MouseEnter method is called?
 	Method MouseEnter() 
 		Print "ENTER"
 		DrawStatus = 1
		Local ev:TEvent = New TEvent 
 		ev.source = Self
 		ev.id = EVENT_GADGETPAINT
 		ev.Emit

 	End Method