'不僅在OLE方式下，而且在Mapbasic中，也可以使用set Next Document功能，
'可以在一個(gè)父窗口中嵌入其它窗口，如：custom legend window,map/browse window 等，
'但系統(tǒng)窗口，如：ruler window，系統(tǒng)legend window(用Open Window Legend語(yǔ)句)等，則無(wú)法作為子窗口嵌入進(jìn)去。
Dim winid as float
close all interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\USA\States.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\USA\Statecap.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\USA\Us_hiway.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\WORLD\Ocean.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\WORLD\World.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\WORLD\Grid15.tab" Interactive

Map From States
Add Map Auto Layer Statecap
Add Map Auto Layer Us_hiway

winid=windowid(0)

shade window winid 3 with Pop_1980 ranges apply all use color Brush (2,65280,16777215)  400000: 1000000 Brush (2,65280,16777215) Pen (1,2,0) ,1000000: 2500000 Brush (2,5308160,16777215) Pen (1,2,0) ,2500000: 4100000 Brush (2,11599616,16777215) Pen (1,2,0) ,4100000: 5700000 Brush (2,16760896,16777215) Pen (1,2,0) ,5700000: 23700000 Brush (2,16744576,16777215) Pen (1,2,0) default Brush (2,16777215,16777215) Pen (1,2,0)  
set Next Document Parent WindowInfo(winid,12) Style 1
Create Legend From Window winid

'(注意，這時(shí)Legend Window 的window ID等于windowid(0),
'而Map Window的window ID已等于windowid(1)。)

set window winid max

set Next Document Parent WindowInfo(winid,12) Style 1
Browse * from states
set window windowid(0) Position(0,3.3) Width 3  Height 1.5

'注意，這時(shí)對(duì)子窗口world的圖層控制有問(wèn)題，當(dāng)改變子窗口world的圖層控制時(shí)，
'實(shí)際上改變了父窗口的圖層控制
set Next Document Parent WindowInfo(winid,12) Style 1
Map From Ocean
Add Map Auto Layer World
Add Map Auto Layer Grid15
set window windowid(0) Position(5.3,3.3) Width 3  Height 1.5