Die Breite der Flowdocument Cells in VB einstellen

Guten Tag,

Wie kann ich die Breite von Spalten eines FlowDocuments im VB Teil einstellen. Alle Spalten werden immer gleich breit.
Habe lange gesucht und nichts gefunden. Ich muss zugeben, bei VB noch ziemlicher Anfänger zu sein.

im Xaml steht nur:

im VB unter anderem:

For Each Me.artRow In dtArt.Rows
mytable.RowGroups(0).Rows.Add(New TableRow())
currentRow = mytable.RowGroups(0).Rows(zzz)

‚‘ Global formatting for the row.
currentRow.FontSize = 10
currentRow.FontWeight = FontWeights.Normal

currentRow.Cells.Add(New TableCell(New Paragraph(New Run((artRow.Item(„Ident“))))))
currentRow.Cells.Add(New TableCell(New Paragraph(New Run((artRow.Item(„Bez“))))))
currentRow.Cells.Add(New TableCell(New Paragraph(New Run((artRow.Item(„Lagi“))))))
zzz += 1
Next
myviewer.Document = myflow

Die erste Spalte sollte schmaler sein als die zweite, bzw die Spaltenbreite sollte definiert werden können.
Wer kann mir helfen.

Vielen Dank im Voraus.