大家好，我找到制作停泊窗口的方法了，有点麻烦，不过能解决问题，希望如有更好的，能大家共享！

Question

下载地址：http;//www.applevb.com/sourcecode/rgdock.zip关键步骤：
    * 在MDIForm中加入PictureBox1,并设置其Align为left 或其他
    * 通过SetParent改变工具窗口的parent为picturebox1
    *  '取得picture1的子窗口
        l = GetWindow(Picture1.hwnd, GW_CHILD)
       '移动窗口到适当位置
        Call MoveWindow(l, -2, -2, Picture1.Width / Screen.TwipsPerPixelX + 4, _
                                Picture1.Height / Screen.TwipsPerPixelY + 4, True)
其他的不难了。^_^