Dim bks() As String Dim i As Integer bks = New String() {"A","B","C","D"} For Each bk As String In bks Dim lbl As WinForm.Label i = i+1 lbl = e.Form.CreateControl(bk, ControlTypeEnum.Label) lbl.Text = bk lbl.Left = 70 lbl.Top = 35 + i * 20 e.Form.AddControl(lbl) Next