关于TreeView的图标问题

xinle

TreeView中可以设置images 和SelectedImage
但不知道如何实现如下的效果：
1、折叠时图标：图标1
2、展开时图标：图标2
3、没有子节点时：图标3

如下图:

fan0217

Dim i As Integer
  For i = 1 To xTree.Nodes.Count
    If xTree.Nodes(i).Children = 0 Then
        xTree.Nodes(i).Image = 3
    End If
Next i