This is as close as I can get for now using a macro... adding the Window to the LinkedWindows collection adds it to the "bottom" of the window, and I still don't know how to "drag" it to the right...
<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>
<SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Base</SPAN> 1
<SPAN style="color:#00007F">Sub</SPAN> ResetVBEState()
<SPAN style="color:#00007F">Dim</SPAN> Win <SPAN style="color:#00007F">As</SPAN> VBIDE.Window
<SPAN style="color:#00007F">Dim</SPAN> Found <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Boolean</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Dim</SPAN> Ar <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN>
Ar = Array(6, 7) <SPAN style="color:#007F00">'Window type of Project and Property windows</SPAN>
<SPAN style="color:#007F00">'Let's find in the "docked" windows</SPAN>
<SPAN style="color:#00007F">For</SPAN> i = <SPAN style="color:#00007F">LBound</SPAN>(Ar) <SPAN style="color:#00007F">To</SPAN> <SPAN style="color:#00007F">UBound</SPAN>(Ar)
Found = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> Win <SPAN style="color:#00007F">In</SPAN> .MainWindow.LinkedWindows
<SPAN style="color:#00007F">If</SPAN> Win.Type = Ar(i) <SPAN style="color:#00007F">Then</SPAN>
Found = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">For</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> Win
<SPAN style="color:#00007F">If</SPAN> <SPAN style="color:#00007F">Not</SPAN> Found <SPAN style="color:#00007F">Then</SPAN>
<SPAN style="color:#00007F">For</SPAN> <SPAN style="color:#00007F">Each</SPAN> Win <SPAN style="color:#00007F">In</SPAN> .Windows
<SPAN style="color:#00007F">If</SPAN> Win.Type = Ar(i) <SPAN style="color:#00007F">Then</SPAN>
Win.Visible = <SPAN style="color:#00007F">True</SPAN>
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>
.MainWindow.LinkedWindows.Remove Win
<SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">GoTo</SPAN> 0
Win.Left = 1
Win.Top = Choose(i, 125, 429)
Win.Height = 307
Win.Width = 186
<SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">For</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> Win
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">Next</SPAN> i
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>