Collapse other nodes when another node is selected

Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
        Dim temp As TreeNode = e.Node
        For Each m As TreeNode In TreeView1.Nodes
            If Not m Is temp Then
                m.Collapse(False)
            End If
        Next
        temp.ExpandAll()
    End Sub