Use Graphics Anywhere in Controls
Mathematica 6's unified architecture lets you immediately mix graphics, typesetting, and other controls, into any aspect of controls.
In[1]:=  |  TabView[((Show[#, ImageSize -> 40] -> #) &[
Graphics3D[{Yellow, Opacity[.5], PolyhedronData[#, "Faces"]},
Boxed -> False]]) & /@ Take[PolyhedronData[], {55, 60}]] |
Out[1]=  |  |