关于treeview控件

[xwjbs]

我的程序是一个mdiForm，窗口左边是一个图片控件，上面放了一个treeview控件
Public Sub MakeTree()
Dim mNode As Node
Tree.ImageList = ImageTree
Tree.LineStyle = tvwRootLines
Set mNode = Tree.Nodes.Add(, , "r", "网络考试系统", "server")
mNode.Expanded = True
Set mNode = Tree.Nodes.Add("r", tvwChild, "Store", "题库", "store")
Set mNode = Tree.Nodes.Add("r", tvwChild, "About", "关于", "about")
End Sub
Private Sub Tree_NodeClick(ByVal Node As MSComctlLib.Node)
TreeKey = Node.Key
Select Case Node.Key
Case "Store":
frmTi.Show
frmTi.ZOrder 0
'Tree.Nodes.Item(Node.Index).Selected
end select
End Sub
我用maketree()省成树，用tree_NodeClick()来判断点击。问题在于，frmTi窗口显示出来以后，焦点转移到了frmTi上。怎末才能做到，点击以后，窗口照常显示，焦点仍然在tree上，也就是"题库"二字的背景是蓝色的，他处于选定状态

[lihonggen0]

frmTi.Show
TreeView1.SetFocus

[xwjbs]

我试了，好像不行

[flxa]

MakeTree 时加上
Tree.HideSelection = False

可以使用焦点在FrmTi上时,Tree选择的Node虽然不会是蓝色的背景,但是灰色的背景,我想效果相差不大吧!