Brian asked:

>Is it possible to display pen patterns in a preview window

dim as Long i, x, y

Window 1, "Pretty Patterns", (0, 0)-(470, 560), _docNoGrow

x = 10 : y = 10
for i = 1 to 37
Pen 20, 20,,,i
Long Color Rnd(65535), Rnd(65535), Rnd(65535), _zTrue
long if i < 20
Plot 10, x to 200, x
x += 30
xelse
Plot 240, y to 440, y
y += 30
end if
next i

Randomize

do
HandleEvents
until gFBQuit