Visual Basic.NET - Datagrid-dataview

Hola,ay alguna forma de variar el ancho de una columna del datagrid por medio del dataview.
El problema es que creo un datagrid y lo relleno con datos codificados de un archivo todo por codigo y no me funciona eso del TableStyles.
Gracias

Dim DataGridTableStyle = New System.Windows.Forms.DataGridTableStyle
Dim DataGridTextBoxColumn1 = New System.Windows.Forms.DataGridTextBoxColumn
Dim DataGridTextBoxColumn2 = New System.Windows.Forms.DataGridTextBoxColumn

DataGrid1.TableStyles.AddRange(New System.Windows.Forms.DataGridTableStyle() {DataGridTableStyle})
'
'DataGridTableStyle
'
DataGridTableStyle.DataGrid = Me.DataGrid1
DataGridTableStyle.GridColumnStyles.AddRange(New System.Windows.Forms.DataGridColumnStyle() {DataGridTextBoxColumn1, DataGridTextBoxColumn2})
DataGridTableStyle.MappingName = DSet.Tables.Item(0).TableName ' aqui va la tabla Dset es mi dataset
'
'DataGridTextBoxColumn
'
DataGridTextBoxColumn1.MappingName = "ProductName"
DataGridTextBoxColumn1.Width = 200
'
'DataGridTextBoxColumn
'
DataGridTextBoxColumn2.MappingName = "CategoryName"
DataGridTextBoxColumn2.Width = 75

Asi si sale,el problema es que al datagrid se le puede ir añadiendo columnas nuevas,entonces q se tiene que hacer un estilo para cada columna??¿Lo veo demasiado enrevesado,hay alguna forma mas simple?Gracias de todas formas.

como le daras el valor para el ancho de columna si la creas en tiempo de ejecucion, piensas pasar un valor??

Dim DgTs As New DataGridTableStyle

'lo colocas donde quieras despues de insertar la columna con tu codigo
Newcol("Categories", "CategoryName", DataGrid1, 90)
Newcol("Categories", "ProductName", DataGrid1, 300)

''''''''''''''''

'sub que da formato a las columnas
Sub Newcol(ByVal TName As String, ByVal ColName As String, ByVal dgrd As DataGrid, ByVal HeightCol As Integer)
Dim DgTbC As New DataGridTextBoxColumn
DgTs.MappingName = TName
DgTbC.MappingName = ColName
DgTbC.HeaderText = ColName
DgTbC.Width = HeightCol
DgTs.GridColumnStyles.Add(DgTbC)
dgrd.TableStyles.Add(DgTs)
End Sub

Haver porfavor mi codigo de crear la tabla es este:
****************************************************************
Dim dr As DataRow
Dim dt As New DataTable

dt.Columns.Add(New DataColumn("Nombre"))
dt.Columns.Add(New DataColumn("Grupo"))
dt.Columns.Add(New DataColumn("Expediente"))
dt.Columns.Add(New DataColumn("Convocatoria"))
// ESAS COLUMNAS SON FIJAS//
Dim dv As New DataView(dt)
.......
...... ' Aqui relleno esas 4 columnas ....
DataGrid1.DataSource = dv
***********************************************************************
Luego para añadir una columna hago esto:
********************************************************************
Dim dt As New DataTable

dt = dv.Table
dt.Columns.Add(New DataColumn)
Dim dv1 As New DataView(dt)

DataGrid1.DataSource = dv1
***************************************************************************
Entonces me gustaria en tiempo de ejecucion variar el ancho de esas columnas las fijas y las nuevas,y lo del table Style no me convence,aunque si no hay otra forma ya vere como me organizo. Gracias Harold. SI se te ocurre algo contesta.