Function createTextBox:TextBox(x,y,width,height,txt$ = "")
	t.TextBox = New TextBox
	t\x = x
	t\y = y
	t\width = width
	t\height = height
	t\txt$ = txt$
	Return t
End Function