4  Double- cliquez sur le formulaire pour créer un événement de chargement du formulaire et ajoutez le code suivant pour ajouter trois nœuds de l'arborescence 
 5 
 Double -cliquez sur " Button1" pour créer un événement de clic du bouton et ajoutez le code suivant pour créer un nouveau fichier Excel et ajouter le texte de nœud sélectionné à "A1" : 
 
 Dim xlTV En tant que Néo Excel.application 
 
 xlTV.Visible = True 
 
 xlTVwks As Excel.Workbooks = xlTV.Workbooks 
 
 xlTVwk As Excel.Workbook = xlTVwks.Add < br > 
 
 xlTVsht As Excel.Worksheet = xlTVshts ( "Sheet1" ) 
 
 xlTVsht.Range ( "A1") . Value = TreeView1.SelectedNode.Text.ToString 
 
 xlTVsht.SaveAs ("C: \\ dataFromTreeView.xlsx " ) 
 6 
 Appuyez sur " F5" pour exécuter le programme et sélectionner un nœud dans le contrôle de l' arborescence. Cliquez sur " Button1" pour créer le fichier Excel.