Is this the kind of thing you are looking for?
Names Default To Here( 1 );
dt = Open( "$SAMPLE_DATA/semiconductor capability.jmp" );
gb1 = Graph Builder(
invisible,
Size( 534, 454 ),
Show Control Panel( 0 ),
Variables( X( :PNP1 ), Y( :NPN1 ), Color( :NPN2 ) ),
Elements( Contour( X, Y, Legend( 5 ) ) )
);
gb2 = Graph Builder(
invisible,
Size( 534, 454 ),
Show Control Panel( 0 ),
Variables( X( :NPN2 ), Y( :PNP3 ), Color( :PNP4 ) ),
Elements( Contour( X, Y, Legend( 5 ) ) )
);
gb3 = Graph Builder(
invisible,
Size( 534, 454 ),
Show Control Panel( 0 ),
Variables( X( :PNP4 ), Y( :NPN4 ), Color( :INM2 ) ),
Elements( Contour( X, Y, Legend( 5 ) ) )
);
gb4 = Graph Builder(
invisible,
Size( 534, 454 ),
Show Control Panel( 0 ),
Variables( X( :PBA1 ), Y( :WPR1 ), Color( :PLY10 ) ),
Elements( Contour( X, Y, Legend( 5 ) ) )
);
nw = New Window( "xxx", V List Box( hlb1 = H List Box(), hlb2 = H List Box() ) );
hlb1 << append( Report( gb1 )[List Box( 2 )] );
hlb1 << append( Report( gb2 )[List Box( 2 )] );
hlb2 << append( Report( gb3 )[List Box( 2 )] );
hlb2 << append( Report( gb4 )[List Box( 2 )] );
Jim