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