主题：动态控件位置问题

红袍 帮我看看这个代码,我想在标签下面加入两个其他控件,位置算的不对!

Dim dr As DataRow

Select Case e.Node.Level

    Case 1

        Dim i1 As Integer

        Dim n As Integer

        Dim index  As  Integer

        e.Form.Controls("Panel1").ClearControl

        For Each cl As DataCol In DataTables("用标签做数据浏览").DataCols

            dr = DataTables("用标签做数据浏览").Find("第一列='" & e.Node.DataRow("第一列") & "' And 第二列 ='" & e.node.DataRow("第二列") & "' And " & cl.Name & " Is Not Null")

            If dr IsNot Nothing Then

                Dim rad As WinForm.Label

                rad = e.Form.CreateControl(cl.Name,ControlTypeEnum.label)

                rad.Font = New Font("微软雅黑",9)

                rad.Text = dr(cl.Name)

                rad.Left = 10

                rad.Top = 20 * i1

                rad.AutoSize = True

                i1 += 1

                e.Form.Controls("Panel1").AddControl(rad)

                n = rad.Top

                If cl.ExtendType = ExtendTypeEnum.Images Then

                    Dim lst As New List(of String)

                    lst = dr.Lines(cl.Name)

                    For Each ls As String In lst

                        Dim px As WinForm.PictureBox

                        px = e.Form.CreateControl(index ,ControlTypeEnum.PictureBox)

                        px.Width = 100

                        px.Height = 100

                        px.Left = 10

                        px.Top = n+(120 * index)

                        px.AutoScroll = False

                        px.Image = GetImage(ProjectPath  & "Attachments\" & ls)

                        px.SizeMode = ImageSizeMode.Zoom

                        Index += 1

                        e.Form.Controls("Panel1").AddControl(px)

                    Next

                End If

            End If

        Next

End Select