TreeView - Expand only selected node and collapse others

Question

Hi
How I can expand only selected node and collapse other nodes that was expanded earlier?!

Answer 1

Ghostenigma,
switch Option Strict On. I've tried to analyze the code but it's not usable due to type ignorance.
BTW, Goto is not required here. ELSEif means it's only executed if the previous expressions are not true.
Armin
Ignore other code and give an reply for what I've asked else you are not obligated to post a reply at all!
 I am not sure if you took the "type ignorance" part wrong but, Armin was only trying to give you helpful information which i would give too.  Option Strict is a GOOD thing to use and the GoTo statements are not needed inside your ElseIf
statements.  As far as that goes, i would not recommend using GoTo in any modern .Net programming.
 Anyways, the problem is with the way you are Adding and Removing all the child nodes every time the nodes are DoubleClicked and when they are Collapsing.  I just simulated your code to add the sub nodes when a main node is double clicked. 
You can just use the NodeMouseDoubleClick event instead of the TreeView`s DoubleClick event to make it a little easier on yourself too.
 This corrected the problem for me.
Public Class Form1
Private r As New Random ' this random class is only for my simulation of adding sub nodes (not needed)
Private expanded As TreeNode
Private Sub TreeView1_BeforeCollapse(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeCollapse
e.Node.Nodes.Clear()
End Sub
Private Sub TreeView1_BeforeExpand(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeViewCancelEventArgs) Handles TreeView1.BeforeExpand
Dim pn As TreeNode = e.Node
While pn.Parent IsNot Nothing
pn = pn.Parent
End While
If expanded IsNot Nothing And expanded IsNot pn Then expanded.Collapse()
expanded = pn
End Sub
Private Sub TreeView1_NodeMouseDoubleClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseDoubleClick
'Added this part to collapse the prior expanded node and set the (expanded) node to the new one
If expanded IsNot Nothing And expanded IsNot e.Node Then
expanded.Collapse()
Dim pn As TreeNode = e.Node
While pn.Parent IsNot Nothing
pn = pn.Parent
End While
expanded = pn
End If
'This just simulates your code to add the new sub nodes to the main node that was double clicked
'you need to put your code here instead of this.
Dim str() As String = {"one.mp3", "Two.mp4", "Three.mvk"}
Dim s As String = str(r.Next(0, 3))
e.Node.Nodes.Add(s, s)
e.Node.Expand()
End Sub
End Class
 PS - I notice you are adding more and more Images to your ImageList every time you double click on a node.  If you just add the Images to it once when the app is loading then you can just use the Image Key to set the correct Image to the newly
added node.
If you say it can`t be done then i`ll try it