Vector Columns?

[#1]

How Can I create a pre-filled Col List Box with all the Vector Columns of the current data table?

Like << Modeling Type({"Continuous"}), but for modeling type Vector.

Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/Big Class Families.jmp" );
New Window( "Vector columns", 
Col List Box(All, width( 250 ),<< Modeling Type({"Continuous"}) ),
Col List Box(All, width( 250 ),<< Modeling Type({"Vector"} ) ));

Seems to be an issue of All - which doesn't pick All  columns .
 is there a command All_even_the_Expressions ?

[#2]

Loop over the list of columns, get vector modeling types and use "" with col list box

Names Default To Here(1);

dt = Open("$SAMPLE_DATA/Big Class Families.jmp");

nw = New Window("Vector columns",
	clb = Col List Box(dt, "", width(250), <<Modeling Type({"Vector"}))
);

vcols = Filter Each({colname}, dt << Get Column Names("String"), Column(dt, colname) << get modeling type == "Vector");
clb << Set Items(vcols);

[#3]

@jthi , many thanks for the nice workaround :)

@JMP: why ?!