如何让treeview控件中的节点一直保持展开？（VB）

Question

想让treeview控件中的所有节点一直保持展开，无论点过前，还是点击过个别节点之后，让这些节点一直展开着，不折叠起来，有没有办法可以办到？第一次可以用循环展开（如下），但是能不能不要每次点击后都这样，有没有属性之类的设一下就行了。
      For m = 1 To testsel.Nodes.count
         testsel.Nodes(m).Expanded = True '展开所有节点
      Next m

Answer 1

Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
    Node.Expanded = True
End Sub但是要闪一下。

Answer 2

treeview没有重绘的，看看有没有api。

Answer 3

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long'Routine to Lock a Window from Repainting
Public Sub LockWindowUpdate(ByVal Handle As Long, ByVal Lock As Boolean) Const WM_SETREDRAW As Long = &HB
'Enable / Disable Drawing Call SendMessage(Handle, WM_SETREDRAW, Abs(CInt(Lock)), 0)
End Sub

Answer 4

Public Sub LockWindowUpdate(ByVal Handle As Long, ByVal Lock As Boolean) Const WM_SETREDRAW As Long = &HB 这个语句报错，指着Lock说Excepted：identifier。
是不是这个语句是VC里面的。我从来没有没有用过这个，还能用个简单的例子告诉我怎么用？谢谢