Visual Basic.NET - Tabla en pdf

Imports iTextSharp.text ' ES OBLIGATORIO IMPORTAR ESTA CLASE PARA QUE EL VISUAL BASIC ENTIENDA EL IDIOMA UTILIZADO

Imports iTextSharp.text.pdf

Module Module1

    Sub Main()

        ' CREAR PDF Y ESCRIBIR 

        Dim documentoPDF As New Document(PageSize.A4, 100, 100, 220, 150) ' SE LE PONE LAS CARACTERISTICAS DEL DOCUMENTO PDF (TAMAÑO ETC.)

        iTextSharp.text.pdf.PdfWriter.GetInstance(documentoPDF, New System.IO.FileStream("plantilla.PDF", System.IO.FileMode.Create))

        documentoPDF.Open()

        'AÑADIR TABLA 

        Dim tabla

        Dim celda

        Dim celda1

        Dim celda2

        Dim celda3

        Dim celda4

        Dim celda5

        tabla = New pdf.PdfPTable(6) 'EL 4 ES EL NUMERO DE COLUMNAS

        celda = New pdf.PdfPCell(New Phrase("")) 'TITULO DE LA TABLA

        celda1 = New pdf.PdfPCell(New Phrase("CÓDIGO CLIENTE"))

        celda2 = New pdf.PdfPCell(New Phrase("SU PEDIDO Nº"))

        celda3 = New pdf.PdfPCell(New Phrase("REFERENCIA PROVEEDOR"))

        celda4 = New pdf.PdfPCell(New Phrase("FECHA"))

        celda5 = New pdf.PdfPCell(New Phrase("FACTURA Nº"))

        'celda.colspan = 1 ' CELDAS QUE OCUPA EL TITULO DE TABLA  |||  SI LLEGA A SER 3, COMO LA TABLA TIENE 4 COLUMNAS, 1 DE LAS CELDAS SUBIRIA Y SE COLOCARIA JUNTA A LA DEL TITULO

        ' celda.horizontalAlignment = 1 ' UBICACIÓN DEL TITULO DE LA TABLA: 0=IZQUIERDA 1=CENTRADO 2=DERECHA

        'celda.padding = 0.5 ' ALTURA DE LA CELDA DE TITULO

        celda.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER

        celda.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

        celda1.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER

        celda1.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

        celda2.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER

        celda2.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

        celda3.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER

        celda3.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

        celda4.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER

        celda4.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

        celda5.HorizontalAlignment = iTextSharp.text.Element.ALIGN_CENTER

        celda5.VerticalAlignment = iTextSharp.text.Element.ALIGN_TOP

        celda.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY ' COLOR DE RELLENO DE LA CELDA DE TITULO

        celda1.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY

        celda2.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY

        celda3.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY

        celda4.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY

        celda5.backgroundcolor = pdf.ExtendedColor.LIGHT_GRAY

        tabla.addcell(celda)

        tabla.addcell(celda1)

        tabla.addcell(celda2)

        tabla.addcell(celda3)

        tabla.addcell(celda4)

        tabla.addcell(celda5)

        tabla.addcell(" 1 ")   'SE AÑADE LA CELDA 1

        tabla.addcell(" 2 ")

        tabla.addcell(" 3 ")

        tabla.addcell(" 4 ")

        tabla.addcell(" 5 ")

        tabla.addcell(" 6 ")

        ' TOTAL DE CELDAS: 12

        documentoPDF.Add(tabla)

        documentoPDF.Close()

        Process.Start("plantilla.PDF")

    End Sub

End Module

Quiero crear 3 tablas pero de momento con una me vale.. jajaja

Lo que pretendo es que la tabla que se genere tenga 6 columnas y 2 filas. y que la celdas de la fila 1 tenga un tamaño X. A parte de eso quiero mover la tabla a la parte superior izquierda.

Un saludo,

Public Enum c0 As Integer

        NOMBRE = 1

        DIRECCIÓN = 2

        LOCALIDAD = 3

        PROVINCIA = 4

        CIF = 5

        CODIGO_CLIENTE = 6

        NUMERO_PEDIDO = 7

        PROVEEDOR = 8

        FECHA = 9

        NUMERO_FACTURA = 10

        ALBARÁN = 11

        CÓDIGO = 12

        CONCEPTO = 13

        PRECIO = 14

        IMPORTE = 15

        PORCEN = 16

        DESCUENTO = 17

        BASE = 18

        IVA = 19

        CANT_IVA = 20

        TOTAL = 21

    End Enum

Dim txt As String = "C:\Users\JonAnder\Desktop\FACTURA.TXT"

        Dim b() As String = System.IO.File.ReadAllLines(txt)

        Dim numreg As Integer = b.GetUpperBound(0)

        Dim bsalida(,)

        ReDim bsalida(numreg, 100)

        For i = 0 To numreg

            Dim linea As String

            For Each linea In b

           AQUI ES DONDE NO SE QUE PONER.........

            Next

        Next

sub datos_bsalida()

        bsalida(0, c0.NOMBRE) = linea

        bsalida(1, c0.DIRECCIÓN) = linea

        bsalida(2, c0.LOCALIDAD) = linea

        bsalida(3, c0.PROVINCIA) = linea

        bsalida(4, c0.CIF) = linea

        bsalida(5, c0.CODIGO_CLIENTE) = linea

        bsalida(6, c0.NUMERO_PEDIDO) = linea

        bsalida(7, c0.PROVEEDOR) = linea

        bsalida(8, c0.FECHA) = linea

        bsalida(9, c0.NUMERO_FACTURA) = linea

        bsalida(10, c0.ALBARÁN) = linea

        bsalida(11, c0.CÓDIGO) = linea

        bsalida(12, c0.CONCEPTO) = linea

        bsalida(13, c0.PRECIO) = linea

        bsalida(14, c0.IMPORTE) = linea

        bsalida(15, c0.PORCEN) = linea

        bsalida(16, c0.DESCUENTO) = linea

        bsalida(17, c0.BASE) = linea

        bsalida(18, c0.IVA) = linea

        bsalida(19, c0.CANT_IVA) = linea

        bsalida(20, c0.TOTAL) = linea

end sub

for i=0 to 100

	PdfPCell mycelda = new PdfPCell(new Phrase(b[i].Nombre.ToString()))

	mycelda.Colspan = 1

	mycelda.BackgroundColor = BaseColor.LIGHT_GRAY;

	MyTabla.AddCell(mycelda)

netx i