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

[greenicejq]

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

[帝企鹅已被占用]

Private Sub TreeView1_Collapse(ByVal Node As MSComctlLib.Node)
Node.Expanded = True
End Sub

但是要闪一下。

[greenicejq]

有没有办法不让它闪啊？

[liguicd]

试试关闭重绘

[greenicejq]

Public Sub LockWindowUpdate(ByVal Handle As Long, ByVal Lock As Boolean) Const WM_SETREDRAW As Long = &HB

这个语句报错，指着Lock说Excepted：identifier。
是不是这个语句是VC里面的。我从来没有没有用过这个，还能用个简单的例子告诉我怎么用？谢谢

[帝企鹅已被占用]

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

[帝企鹅已被占用]

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