Text images n stuff - WinBlitz3d

somthing like this doesnt seem to work..?

Global RuntimeWindow_hWnd = WB3D_InitializeGUI(SystemProperty("AppHwnd"),WB3D_GadgetWidth(WB3D_DeskTop())/2-402/2,WB3D_GadgetHeight(WB3D_DeskTop())/2-302/2,402,302)
WB3D_HideGadget RuntimeWindow_hWnd



Test = WB3D_CreateWindow("label test",WB3D_GadgetWidth(WB3D_DeskTop())/2-300/2,WB3D_GadgetHeight(WB3D_DeskTop())/2-200/2,300,200,0,0)

maketext = WB3D_CreateButton("Test1",0,0,80,20,Test,0)
maketext2 = WB3D_CreateButton("Test2",100,0,80,20,Test,0)

mytext = WB3D_CreateLabel("Testing",100,100,100,50,Test,WS_CHILD Or SS_SIMPLE)



WB3D_FlushEvents
While Not KeyHit(1)

Events = WB3D_WaitEvent()

;Watch for all events
Select Events

	Case WB3D_EVENT_GADGET
		selected = WB3D_EventSource()
		Select selected
		
			Case maketext
			
				WB3D_SetGadgetText(mytext,"Test1")
				
			Case maketext2
				WB3D_SetGadgetText(mytext,"Test2")
		End Select
		
	 Case WB3D_EVENT_WINDOW_CLOSE
     	find = WB3D_EventSource()
     	Select find
        	Case Test
				End
				WB3D_EndGUI()
     	End Select
End Select

Delay 5


Wend
WB3D_EndGUI()
End