Public Sub SelectNodeAtTag(ByVal ID As Long)
        Dim foundNode As TreeNode
        Try
 
            For Each tn_ As TreeNode In Me.Nodes
                foundNode = _SearchNode(ID, tn_)
                Me.SelectedNode = foundNode
                m_Akt_LfdNr_Arch_Obj = Me.SelectedNode.Tag
                m_Akt_LfdNr_Arch_Typ = allgFunctions.cmdExecuteScalarLong( _
                  "SELECT LfdNr_Arch_Typ FROM Arch_Objekte WHERE LfdNr_Arch_Obj" & _
                  "= " & m_Akt_LfdNr_Arch_Obj)
                If Not foundNode Is Nothing Then
                    Do While foundNode.Parent.Tag <> 0
                        foundNode = foundNode.Parent
                        foundNode.Expand()
                    Loop
                    foundNode.Parent.Expand()
 
                    'für dich nicht wichtig
                    RaiseEvent Change_P(ID) ' damit bekommen alle anderen das 
                    ' auch mit
                End If
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message, "MyTreeView.SelectNodeAtTag")
        End Try
 
    End Sub
    Function _SearchNode(ByVal ID As Long, ByVal tn As TreeNode) As TreeNode
        Dim foundNode As TreeNode
        If tn.Tag = ID Then Return tn
        For Each tn_ As TreeNode In tn.Nodes
            If tn_.Text = Tag Then Return tn_
            foundNode = _SearchNode(ID, tn_)
            If Not foundNode Is Nothing Then
                Return foundNode
            End If
        Next
    End Function