TreeView и работа с ним

[MemoriesFrame]

Здравствуйте!
Обращаюсь по такому вопросу:
Необходимо выбирать клиента из всего списка клиентов с вкладки в подчиненной форме(tab_0) нажать на кнопку и чтобы она сработала так: в дереве отобразился именно этот клиент и именно в той стране в которой он находится, т.е дерево должно полностью свернуться и открыться должен именно тот узел, где он находится(Структура дерева:Все страны->Название страны->Клиенты). А так же должна отобразиться с вкладки 2ая подчиненная форма (tab_1) в которой находится подробная информация об этом клиенте.
Не знаю как именно указать, выделенного Клиента и процедуру отображения его в узле дерева.


Можно объяснить сам алгоритм, а дальше додумаю.
Заранее спасибо!

[MemoriesFrame]

Dim i As Node
    
    For Each i In TreeView1.Nodes
        If i.Expanded = True Then
            i.Expanded = False
        End If
    Next i

Или через отдельную функцию вот так:
Function TV_РазвернутьСвернутьДерево(var_TreeView As Control, _
                                     Optional var_Развернуть As Boolean = True) As Boolean

' Разворачивает / сворачивает все узлы дерева
'
' Входные данные:
'   var_TreeView        - Элемент типа TreeView
'   var_Развернуть - (необязательный) Разворачивать (по умолчанию) или сворачивать

On Error GoTo Err_TV_РазвернутьСвернутьДерево

Dim i As Node
'Цикл по узлам дерева
For Each i In var_TreeView.Nodes
    'Если узел свернут - разворачиваем его
    If i.Expanded = Not var_Развернуть Then
        i.Expanded = var_Развернуть
    End If
Next i

TV_РазвернутьСвернутьДерево = True

Exit_TV_РазвернутьСвернутьДерево:
    Exit Function
    
Err_TV_РазвернутьСвернутьДерево:
    TV_РазвернутьСвернутьДерево = False
    Resume Exit_TV_РазвернутьСвернутьДерево
    
End Function