What is lost is the description of the node.
because I can not do the following:

node.Bounds.X = CType(dt.Rows .Item("BoundsX"), Single)

happened and I get error:
Expression is a value and therefore cannot be the  target of an assignment.

Without this property I can not assign which to situate ??

greetings

Dear Stoyan,
You still can not get results with what I sent.
Questions:
1.-How can I tell if an eclipse or a rectangle.
if the For Each runs as I can know what kind of object is, because when it does what it does is to remove all control and take all the checks.
I like the following code:

For Each node In diagram.Nodes

           Dim xxx As Integer = node.Bounds.X

           Dim yyy As Integer = node.Bounds.Y

           Dim nom As String = node.Tag

           Dim www As Integer = node.Bounds.Width

           Dim hhh As Integer = node.Bounds.Height

           ' Dim fff = node.Bounds.Top



           If TypeOf node Is ShapeNode Then

               'Me.Response.Write("nom, xxx, yyy, www, hhh, fff")

               Dim Resul1 As Integer

               Resul1 = SqlHelper.ExecuteNonQuery(strConnection, _

                                              "INS_MAPANODO_LOCALIZACION", _

                                              New SqlParameter("@cod_mapa", CType(Request("cod_mapa"), Integer)), _

                                              New SqlParameter("@Tag", CType(nom, String)), _

                                              New SqlParameter("@BoundsX", CType(xxx, String)), _

                                              New SqlParameter("@BoundsY", CType(yyy, String)), _

                                              New SqlParameter("@Width", CType(www, String)), _

                                              New SqlParameter("@Width", CType(www, String)))



              

           End If

Stoyan,
I can record in the database coordinates (x, y, w, h), but I want to read this information, looking like objects (ellipse, rectangle, document etc.) so that when you open the diagram read the data on my new table, EJM:

1 .- the first time I open the diagram shows the default coordenads which I defined.
2.-Now if I move the objects and I record it on the table Guerda Map Nodes

3.-then if I want to see the diagrma with new definitions as achievement?

While this code covers all control and brings out the locations of all objects as I can go all the control and assign a function only of ellipses, rectangles, so you find:

For Each node In diagram.Nodes

           Dim xxx As Integer = node.Bounds.X

           Dim yyy As Integer = node.Bounds.Y

           Dim nom As String = node.Tag

           Dim www As Integer = node.Bounds.Width

           Dim hhh As Integer = node.Bounds.Height

           Dim fff = node.Bounds.Top



           If TypeOf node Is ShapeNode Then

               MsgBox(nom & " " & xxx & " " & yyy & " " & www & " " & hhh & " ")

           End If



       Next node