Public Function GetBarCodeData(recordID As Integer) As List(Of BarcodeData) Dim FieldX As BarcodeData = New BarcodeData() Dim returnValue As List(Of BarcodeData) = New List(Of BarcodeData) For Each bc As String In FieldX Next FieldX.FieldName() FieldX.Active1() FieldX.FontTypeName() FieldX.FontSize() FieldX.BoldA() FieldX.Top1() FieldX.left1() FieldX.widthS() FieldX.Height1() FieldX.Default1() returnValue.Add(FieldX) Next Return returnValue End Function End Class
Help me please