主题：求助 动态增加FileManager控件

 e.Form.Controls("Panel2").basecontrol.Controls.clear

        Dim s As Integer = Tabl es("表A").rows.count - 1

        For  i As Integer = 0 To s

 Dim fil As WinForm.FileManager = e.Form.CreateControl("FileManager" & i, ControlTypeEnum.FileManager)

            fil.Font = fnt

            fil.ForeColor = Color.FromARGB(0, 0, 0)

            fil.DoubleClickOpen = True

            fil.CommandVisible = False

            fil.BackColor = Color.FromARGB(53, 51, 52)

            fil.OpenEnabled = True

            fil.SelectedItem = True

            fil.Width = 160

            fil.Height = 38

            fil.Left = 220*i+30

            fil.Top = 16

            Fil.File = FileSys.GetFiles( "D:\" & Tables("表A").Rows(i)("文件"))

            e.Form.Controls("Panel2").AddControl(fil）

请老师指教！！！

谢谢老师！！！