For i As Integer = 1 To 8
Dim temp As Integer
If i = 1 Then
temp = FieldNames.BodyLine1
Else
temp += 1
End If
addField = New Field
addField.Name = _names(temp) + lineNo.ToString
addField.Left = rp.Fields.Item(_names(temp)).Left
addField.Top = rp.Fields.Item(_names(FieldNames.Body) + lineNo.ToString).Top
addField.Width = rp.Fields.Item(_names(temp)).Width
addField.Height = rp.Fields.Item(_names(temp)).Height
addField.LineSlant = rp.Fields.Item(_names(temp)).LineSlant
addField.BorderStyle = rp.Fields.Item(_names(temp)).BorderStyle
addField.LineWidth = 20
addField.ZOrder = 98
rp.Sections.Detail.Fields.Add(addField)
Next