This code will display a grid of FB wndTypes.  It may be necessary to adjust 
the number of rows, cols to fit your monitor.

'------ Start FB^3 Code ---------
Include "Tlbx Appearance.Incl"

_gridL  = 20'Left coord of grid
_gridT  = 45'Top coord of grid
_numCol = 10'Number of cols
_numRow = 8'Number of rows
_numWnd = _numCol*_numRow'Size of grid
_wndW = 50'Window width
_wndH = 50'Window height
_vg = 22'Distance between cols
_hg = 35'Distance between rows
_initWndType = 176'Change to see other types

dim wndPtr as pointer
end globals

local
dim x
local fn printWndType
for x = _initWndType to (_initWndType + _numWnd) - 1
window output(x)
print%(10,10) str$(x)
next
end fn

local
dim j,k
dim left%
dim top%
dim wndType%
dim brushType%
dim err
LOCAL FN wndGrid
wndType% = _initWndType
FOR k = 0 TO _numRow-1 'Build by row
FOR j = 0 TO _numCol-1
left% = _gridL + j*(_wndW + _vg)
top%  = _gridT + k*(_wndH + _hg)
WINDOW#wndType%,"",(left%,top%)-(left%+_wndW,top%+_wndH),wndType%
wndPtr = WINDOW(_wndPointer)
brushType% = _kThemeActiveDialogBackgroundBrush
err = FN SetThemeWindowBackground(wndPtr,brushType%,_true)
INC(wndType%)
NEXT j
next k
END Fn

local
dim evnt%
dim id%
LOCAL FN doDialog
evnt% = DIALOG(0)
id% = DIALOG(evnt)
SELECT evnt%
case _wndRefresh
fn printWndType
CASE _wndClose'Any window
END
END SELECT
END FN

FN wndGrid
ON DIALOG FN doDialog
DO
HANDLEEVENTS
UNTIL 0

'-------- End of Code ---------

Steve Van Voorst