La acción que se realiza en este control se está llamando desde el subproceso
erróneo. Calcule las referencias al subproceso correcto utilizando Control.Invoke o
 Control.BeginInvoke para realizar esta acción.

Private Delegate Sub MasNodo_Delegate(ByVal nodo As TreeNode)

    Public Sub MasNodo(ByVal nodo As TreeNode)
        If Me.InvokeRequired = True Then
            Me.Invoke(New MasNodo_Delegate(AddressOf MasNodo), nodo)
        Else
            esquema.Nodes.Add(nodo)
        End If
    End Sub

Masnodo(nodo)