サブドッキング可能なウィンドウ()
dim ouserinterfacemgr として userinterfacemanager
set ouserinterfacemgr = thisapplication.userinterfacemanager の設定
'新しいドッキングウィンドウを作成する
dim owindow として dockablewindow
owindow = ouserinterfacemgr.dockablewindows.add("sampleclientid", "testwindowinternalname", "test window")
' ダイアログの hwnd を子として追加する
'この値を変更!
dim hwnd 限り
hwnd = 4851096
' ダイアログをドック可能なウィンドウに子として追加します
owindow.addchild(hwnd)を呼び出します。
'ドックをトップとボトムに許可しない
owindow.disableddockingstates = kdocktop + kdockbottom
'ウィンドウが見えるようにする
owindow.visible = true の
エンドサブ