TreeView VB6

Ola gente, estou com uma dificuldade no treeview do vb6 on ao clicar em um botao ele seleciona todas os registros da arvore, fiz de tudo que esta em meu conhecimenteo mas realmente nao consegui.
um exemplo:

se fosse um list , funcionaria dessa forma :

If OptCorresp.Value Then
For i = 0 To List1.ListCount - 1
List1.Selected(i) = True
Next
End If

agora em um TreeView como funciona ?



Vlw galera.