treeview comme messenger

Comment faire pour comme messenger dérouler un node d'un treeview par un seul clic et ouvrir une nouvelle fenêtre par un double clic ? ? ?

Merci d'avance

Seb78

Private Sub Form_Load()
set TreeView1.Nodes(1).Tag = Form1
set TreeView1.Nodes(2).Tag = form2
End Sub


Private Sub TreeView1_Click()
TreeView1.SelectedItem.Expanded = True - TreeView1.SelectedItem.Expanded
End Sub

Private Sub TreeView1_DblClick()
TreeView1.SelectedItem.Tag.show
End Sub



Dans le Form_Load je dis que je place un pointeur vers les forms dans les différents noeuds donc qd je fais .tag.show je fais appel a la methode .show de la fenetre

qd je fais ...Expanded = true - ...Expanded je dis en fait que si ..Expanded = true alors ...Expanded = true - true = false et inversement

MrDogbert


-------------------------------
Réponse au message :
-------------------------------

> Comment faire pour comme messenger dérouler un node d'un treeview par un seul clic et ouvrir une nouvelle fenêtre par un double clic ? ? ?
>
> Merci d'avance
>
> Seb78