code:

---

Function UDFthingy($i)
	Dim $i, $var

	Select
		case $i=0
			$UDFthingy = $var				;Empty
			$z=1
		case $i=1
			$UDFthingy = ""	;Null
			$z=1
		;case $i=2
		;	$UDFthingy = 1	;Integer
		;	$z=1
		case $i=3
			$UDFthingy = 11111111	;Long Integer
			$z=1
		case $i=4
			$UDFthingy = 1.1	;Single-Prec
			$z=1
		;case $i=5
		;	$UDFthingy = 	;Double-Prec
		;	$z=1
		;case $i=6
		;	$UDFthingy = 	;Currency
		;	$z=1
		;case $i=7
		;	$UDFthingy = 	;Date
		;	$z=1
		case $i=8
			$UDFthingy = "Some Text"	;String
			$z=1
		case $i=9
			$UDFthingy = GetObject("WinNT://@wksta/Administrator,user")	;Object Handle
			$z=1
			;Reason: Script error : Error in expression: Dispatch pointers not allowed in expressions. !
		case $i=10
			$UDFthingy = 1/0	;Error
			$z=1
		case $i=11
			$UDFthingy = exist("blah")	;Boolean
			$z=1
		;case	$i=12 
                ;       $UDFthingy = 	;Variant
		;	$z=1
		;case $i=13
		;	$UDFthingy = 	;Data-access obj
		;	$z=1
		;case $i=14
		;	$UDFthingy = 	;Byte
		;	$z=1
		case $i=15
			$UDFthingy = "q",1,"a"	;Array
			$z=1
	Endselect

	if $z=1
		? ? "Test #" + $i
		? "VarType=" + VarType($UDFthingy) + " " + VarTypeName($UDFthingy) ?
		exit 2
	endif
Endfunction

for $x=0 to 15
	;$rc = UDFthingy($x)
	UDFthingy($x)
	if $z=1
		?
		if @error=0
			color r+/n
			"ERROR: "
			color w/n
		endif
		"@@Error=@error"
	endif
	$z=0
next  

---