пиктограммы TreeView!!!

[Swatch]

Здравствуйте! Подскажите, пожалуйста, как можно при раскрытии элемента в TreeView изменить его пиктограмму? Например у меня сейчас пиктограммки - закрытые книжки. Беру их из ImageList на форме с TreeView.Мне бы хотелось, чтобы при разворачивании какой-либо ветки TreeView пиктограммка заменялась на раскрытую книжку, а присворачивании - обратно на закрытую. Эта пиктограмма у меня также есть в ImageList на форме. Каким образом это можно реализовать?

[alco84]

Public Sub InsImg(sKey As String, intNumImg As Integer)
With mTvw
.Nodes(sKey).Image = intNumImg
.Nodes(sKey).SelectedImage = intNumImg
End With
End Sub