Here is the line of code in VB
CType(frm.Controls("Label" & begin + 1), Label).Text = DescLine(seclist(begin))
Below for loop, assinging string to labels in a form.
For begin As Integer = 0 To seclist.Count - 1 CType(frm.Controls("Label" & begin + 1), Label).Text = DescLine(seclist(begin)) specifyLength.Add(DescLine(seclist(begin))) lengthString.Add(specifyLength(begin).Length) Next