求救TTabDock(停靠控件）的使用方法，VSplitterBar控件的问题(急！！！！）

[mi6236]

1、求救TTabDock(停靠控件）的使用方法
2、程序实现功能当按下并拖拽VSplitterBar控件时控件变为蓝色，结束拖拽是控件变为红色。
Private Sub VSplitterBar1_EndMoving()
Text1.Move 10, 10, VSplitterBar1.Left
Text2.Move (VSplitterBar1.Left + VSplitterBar1.Width), 10, (Me.ScaleWidth - VSplitterBar1.Left - VSplitterBar1.Width)
VSplitterBar1.BackColor = vbRed
End Sub

Private Sub VSplitterBar1_StartMoving()
VSplitterBar1.BackColor = vbBlue
End Sub
出现问题，拖拽结束时焦点不能离开VSplitterBar控件

[mycoldboy]

这东西不好用，至少我是这么认为的，用activebar好

[mi6236]

自己顶一下

[mi6236]

我说的依靠控件不是工具菜单，是像VB中的“工程资源管理器和属性窗口的哪种效果，能自动拖拽，又能自动吸引

[mycoldboy]

activebar 就可以实现！！！