For Each Control In form.Controls
            'container suchen
            If Control.GetType.FullName = _
              "Microsoft.VisualBasic.PowerPacks.ShapeContainer" Then
                Dim ShapeContainer As Object = Control
                'shapes durchgehen
                For Each shape In ShapeContainer.shapes
                    If shape.GetType.FullName = _
                      "Microsoft.VisualBasic.PowerPacks.LineShape" Then
                        Dim E As Object = shape
                        'Jetzt kann ich die shapes bearbeiten 
                        E.x1 = 22
                        E.x2 = 22
                        E.y1 = 100
                        E.y2 = 500
                    End If
                Next
            End If
        Next