.NET (Core and Framework)

If (m_Service.NodeValue(Path.ToString & "/ParamID") = ParamType) Then
    Return m_Service.NodeValue(Path.ToString & "/AutoCalc")
End If

Public Property NodeValue(ByVal Path As String) As Object
    Get
        Return m_Agent.NodeValue(Path)
    End Get
    Set(ByVal value As Object)
        m_Agent.NodeValue(Path) = value
    End Set
End Property

Public Property NodeValue(ByVal Path As String) As Object
    Get
        Try
            Return DirectCast(Me.GetNode(Path), Tree.DataNode).Value
        Catch ex As Exception
            Return Nothing
        End Try
    End Get
    Set(ByVal value As Object)
        Try
            Dim N As DataNode = DirectCast(Me.GetNode(Path), Tree.DataNode)
            If (N IsNot Nothing) Then
                If (N.NodeVal <> value) Then
                    N.NodeVal = value
                    If (Me.SuppressEvents = False) Then
                        OnValueChanged(N.Signature.ToString, value)
                    End If
                End If
            End If
        Catch ex As Exception
        End Try
    End Set
End Property

Public Function GetNode(ByVal Path As String) As Node
    If (m_Nodes.IsEmpty) Then
        Return Nothing
    End If

    If (String.IsNullOrEmpty(Path)) Then Return Nothing

    If (Path.Equals("/")) Then
        m_Nodes.First()
        Return m_Nodes.Current
    End If

    If (Path.Substring(0, 1).Equals("/")) Then
        Return AbsolutePath(Path)
    End If

    Return Nothing
End Function

Private Function AbsolutePath(ByVal Path As String) As Node
    Path = Path.TrimStart("/")
    Dim Data() As String = Path.Split("/")

    If (Data.Length > 0) Then
        Dim Index As Integer = m_Nodes.GetItemIndex(New SearchNode(Data(0)))
        AbsolutePath = m_Nodes.AtIndex(Index)

        If ((AbsolutePath IsNot Nothing) And (Data.Length > 1)) Then
            For X As Integer = 1 To Data.Length - 1
                If (AbsolutePath IsNot Nothing) Then
                    If (AbsolutePath.HasChildren) Then
                        AbsolutePath = DirectCast(AbsolutePath, ContainerNode).Child(Data(X))
                    Else
                        Return Nothing
                    End If
                Else
                    Return Nothing
                End If
            Next
        End If

        Return AbsolutePath
    End If

    Return Nothing
End Function

private void LoadLanguage( string Language)
        {
            ComponentResourceManager Resources = new ComponentResourceManager(typeof(Form1));
            CultureInfo CultureInfo = new CultureInfo(Language);

            doRecursiveLoading(this, CultureInfo, Resources);
        }


private void doRecursiveLoading(Control Parent, CultureInfo CultureInfo, ComponentResourceManager Resources)
        {
            foreach(Control c in Parent.Controls)
            {
                Resources.ApplyResources(c, c.Name, CultureInfo);

                if (c.Controls.Count > 0)
                    doRecursiveLoading(c, CultureInfo, Resources);
            }
        }