请问怎样动态加载控件，并使其根据窗口大小自动排列,谢谢

给你看看我做过的一个例子:我动态加载LABEL控件.
   Private Sub Setup_Button(ByVal iLeft As Integer, ByVal iTop As Integer, ByVal strCaption As String)        Dim lblArray As New Label()
        lblArray.Left = iLeft
        lblArray.Top = iTop
        lblArray.Width = IcoWidth
        lblArray.Height = IcoHeight
        If Len(strCaption) <= 8 Then
            lblArray.Text = strCaption
        Else
            lblArray.Text = strCaption.Substring(0, 6) + "..."
        End If
        lblArray.TextAlign = ContentAlignment.BottomCenter
        lblArray.Cursor = Windows.Forms.Cursors.SizeAll        Controls.Add(lblArray)        lblArray.CreateControl()
        AddHandler lblArray.MouseMove, AddressOf lblArray_MouseMove
    End Sub
下面是自动排列的程序:
    Const IcoWidth = 60 '图标宽度
    Const IcoHeight = 60
    Const XGap = 20    '水平间距
    Const YGap = 20
   Private Sub mnuArrangeIcon_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mnuArrangeIcon.Click
        Dim NumberOfPerCol As Integer '每列可以显示的控件数
        NumberOfPerCol = (Me.Height - ToolBar1.Height - YGap) \ (IcoHeight + YGap)        Dim ctl As Control
        Dim i As Integer
        For Each ctl In Me.Controls
            If InStr(ctl.GetType.FullName, "Label") <> 0 Then
                ctl.Left = XGap + (i \ NumberOfPerCol) * (IcoWidth + XGap)
                ctl.Top = ToolBar1.Height + YGap + (i Mod NumberOfPerCol) * (IcoHeight + YGap)
                i = i + 1
            End If
        Next