EUD created controls are locked

Hello

In the End-User Designer i want to create some controls for example a XRTable.

I do it with this method, but then, I can't select the table in the EUD to change some properties.

What can I do better?

	
[VB.NET]
...
me.CreateAddressField(XrDesignMdiController1.ActiveDesignPanel.Report)
...

    Private Sub CreateAddressField(rep As ProcessReport)
        Dim xrTableAddress As New DevExpress.XtraReports.UI.XRTable()
        Dim xrTableRowAddressPos As New DevExpress.XtraReports.UI.XRTableRow()
        Dim xrTableCellAddress As New DevExpress.XtraReports.UI.XRTableCell()

        rep.ProcessHeader.Controls.Add(xrTableAddress)
        rep.ProcessHeader.Controls.Add(xrTableRowAddressPos)
        rep.ProcessHeader.Controls.Add(xrTableCellAddress)


        '
        'XrTableAddress
        '
        xrTableAddress.LockedInUserDesigner = False
        xrTableAddress.BorderColor = System.Drawing.Color.Gainsboro
        xrTableAddress.BorderWidth = 0
        xrTableAddress.Dpi = 254.0!
        xrTableAddress.LocationFloat = New DevExpress.Utils.PointFloat(318.6875!, 127.0!)
        xrTableAddress.Name = "XrTableAddress"
        xrTableAddress.Rows.AddRange(New DevExpress.XtraReports.UI.XRTableRow() {xrTableRowAddressPos})
        xrTableAddress.SizeF = New System.Drawing.SizeF(595.3124!, 174.8367!)
        xrTableAddress.StylePriority.UseBorderColor = False
        xrTableAddress.StylePriority.UseBorderWidth = False
        '
        'XrTableRowAddressPos
        '
        xrTableRowAddressPos.LockedInUserDesigner = False
        xrTableRowAddressPos.Cells.AddRange(New DevExpress.XtraReports.UI.XRTableCell() {xrTableCellAddress})
        xrTableRowAddressPos.Dpi = 254.0!
        xrTableRowAddressPos.Name = "XrTableRowAddressPos"
        xrTableRowAddressPos.Weight = 1.0R
        '
        'XrTableCellAddress
        '
        xrTableCellAddress.LockedInUserDesigner = False
        xrTableCellAddress.CanGrow = False
        xrTableCellAddress.Dpi = 254.0!
        xrTableCellAddress.Multiline = True
        xrTableCellAddress.Name = "XrTableCellAddress"
        xrTableCellAddress.Text = "bla bla"
        xrTableCellAddress.Weight = 3.0R
    End Sub