Problemas ancho columna datagrid

Te mando el codigo que tengo para formatear un grid y sus columnas.

Private Sub sFormateaGrid()
Try
dgAnomalias.TableStyles.Clear()

Dim MiEstilo As New DataGridTableStyle
MiEstilo.MappingName = "Anomalias"
Dim dgTxt As New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "ID"
.NullText = ""
.Width = 0
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "CodigoAnomalia"
.NullText = ""
.Width = 0
.ReadOnly = True
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "Descripcion"
.NullText = ""
.Width = 490
.HeaderText = "Descripción Anomalia"
.ReadOnly = True
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "Fecha"
.NullText = ""
.Width = 140
.HeaderText = "Fecha"
.ReadOnly = True
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "NumOcurrencias"
.NullText = ""
.Width = 80
.HeaderText = "Repet."
.ReadOnly = True
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

Dim dgBool = New DataGridBoolColumn
With dgBool
.FalseValue = False
.MappingName = "Corregida"
.NullText = "False"
.TrueValue = True
.Width = 120
.HeaderText = "Corregido"
.ReadOnly = False
End With
MiEstilo.GridColumnStyles.Add(dgBool)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "CodigoInstalacion"
.NullText = ""
.Width = 0
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "Horas"
.NullText = ""
.Width = 75
.HeaderText = "Horas"
.ReadOnly = False
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

dgTxt = New DataGridTextBoxColumn
With dgTxt
.Format = ""
.FormatInfo = Nothing
.MappingName = "NumeroAnomalia"
.NullText = ""
.Width = 0
End With
MiEstilo.GridColumnStyles.Add(dgTxt)

MiEstilo.HeaderBackColor = Color.DarkGreen
MiEstilo.HeaderForeColor = Color.White

dgAnomalias.TableStyles.Add(MiEstilo)
Catch ex As Exception
MsgBox("No se ha podido realizar el formateo de las anomalias: "
& ex.Message, MsgBoxStyle.Information, "Aviso")
End Try
End Sub

"vicvallo" escribió en el mensaje
news:

Hola amigos! tengo un problema para indicar el ancho de columna de un
datagrid. Trabajo bajo VB.net 2003

mi codigo es muy sencillo.

Recojo datos de una tabla en un recordset y se lo aplico al datagrid:

DataGrid1.DataSource = rs_tabla

Alguien sabe como accedo al ancho de las columnas, y al caption?



muchas gracias!