Function TestAllW3DButtons()
	r=0
	For buti=1 To BankSize(W3DButton_Bank)/4
		r=TestW3DButton(buti)
		If r>0 Then Exit
	Next
	Return r
End Function
;+ TestW3DButton