Private Sub AddListImageInTreeView(ByVal sTreeView As TreeView) Dim mesIcones As New ImageList With mesIcones .Images.Add(My.Resources.folder) .Images.Add(My.Resources.file) .ImageSize = New Drawing.Size(10, 10) End With sTreeView.ImageList = mesIcones End Sub TreeView1.SelectedNode = TreeView1.Nodes.Add("Text", "Text", 0, 1) 'Le 0 est l'image à l'affichage du nœud 'Le 1 est l'image lors de la sélection du nœud