主题：动态增加控件

Dim lbls() As String = {"1", "2", "3", "4", "5", "6"}

For i As Integer = 0 To 1
    For j As Integer = 0 To 2
        Dim lbl As WinForm.Label
        lbl = e.Form.CreateControl("lable1", ControlTypeEnum.Label)
        lbl.Text = "标签" & lbls(i*3+j)
        lbl.Left = 100 * j
        lbl.Top = 100 * i
        e.Form.AddControl(lbl)
    Next
Next