Label Color (MaxGUI)

Can anyone tell me why this doesn't work ?

Local w:TGadget=CreateWindow("Test",100,100,200,200,Null,WINDOW_TITLEBAR)
Local la:TGadget=CreateLabel("HELLO",50,50,100,20,w,LABEL_FRAME|LABEL_CENTER)
Local b1:TGadget=CreateButton("RED",50,100,40,40,w)
Local b2:TGadget=CreateButton("BLUE",100,100,40,40,w)


While True
	WaitEvent 
	Select EventID()
		Case EVENT_GADGETACTION
		Select EventSource()
		 Case b1
			SetGadgetColor la,255,0,0
		 Case b2
			SetGadgetColor la,0,0,255			
		End Select
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend