The <<get selected message will return a list of the selected items of a List Box or a Col List Box. Then loop over the list to create the charts.
An example:
dt = Open( "$SAMPLE_DATA/Quality Control/Coating.jmp" );
New Window( "select columns",
<<modal,
cl = Col List Box( all, cols = cl << get selected )
);
nw = New Window( "test" );
For( i = 1, i <= N Items( cols ), i++,
nw << append(
dt << Control Chart Builder(
Show Control Panel( 0 ),
Variables( Subgroup( :Sample ), Y( cols[i] ) ),
Chart(
Position( 1 ),
Points( Statistic( "Average" ) ),
Limits( Sigma( "Range" ) ),
Connecting Line( 1 )
)
)
)
);