565
Code:

Function s($z)

Dim $a,$b,$c,$d,$e,$f,$g,$h,$i
ReDim $s[$z*($z+2)]

$b=' '
$d=$z
For $c=$z to 1 step -1
$b='W'+$b+'B'
$d=''+$c+' '+$d+' '+$c+''
$h=$h+'2 '
Next
$d=Split($d)
$s[0]=$b

For $e=$z-1 to 0 step -1
$h='1 '+$h+'1 '
For $f = 1 to $e
$h='2 '+$h+'2 '
Next
Next

For Each $c in $d
For $z = 1 to $c
$g=$g+IIf($e mod 2,'B','W')+Split(Trim($h))[$i]+' '
$i=$i+1
Next
$e=$e+1
Next

For Each $c in Split(Trim($g))
$a=$a+1
$h=Split($b)
$f=$h[0]
$h=$h[1]
$e=Right($c,1)
$b=IIf(Left($c,1)='W',
IIf($e=1,Left($f,-1)+' W',Left($f,-2)+
' '+Right($f,1)+'W')+$h,$f+
IIf($e=1,'B '+Right($h,-1),'B'+Left($h,1)
+' '+Right($h,-2)))
$s[$a]=$b
EndFunction

_________________________
Wait don't order yet,... get KiXforms Designer .NET 2.0 (Beta)
KiXforms Designer .NET 2.0 (Beta)