How come this doesn't work?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

win:TGadget = CreateWindow("blah",0,0,320,240,Null)
button:TGadget = CreateButton("Ok",0,0,40,20,win)

Repeat
	WaitEvent()
	
	Select EventID()
		Case EVENT_MOUSEENTER
			Select EventSource()
				Case button
					Print "Mouse entered button area"
			End Select
		Case EVENT_WINDOWCLOSE
			End
	End Select
Forever