Function ConfigurarGrilla()
DataGrid1.CaptionText = "Tabla de los Pintores"
DataGrid1.CaptionForeColor = Color.Coral
'crenado un estilo personalizado y una columna personlizada
Dim myEstiloGrid As DataGridTableStyle = New DataGridTableStyle
'aginando la tabla al que asocia el estilo
myEstiloGrid.MappingName = "pintor"
'agregando caracteristica a una columna, codigo del pintor
Dim myEstiloCol As New DataGridTextBoxColumn
myEstiloCol.MappingName = "codigopintor"
myEstiloCol.HeaderText = "Codigo"
myEstiloCol.Width = 42
'Para el campo del nombre
Dim myEstiloCol1 As New DataGridTextBoxColumn
myEstiloCol1.MappingName = "nombre"
myEstiloCol1.HeaderText = "Nombres"
myEstiloCol1.Width = 80
'Para el campo de telefono
Dim myEstiloCol2 As New DataGridTextBoxColumn
myEstiloCol2.MappingName = "telefono"
myEstiloCol2.HeaderText = "Telefono"
myEstiloCol2.Width = 80
'Para el campo del celular
Dim myEstiloCol3 As New DataGridTextBoxColumn
myEstiloCol3.MappingName = "celular"
myEstiloCol3.HeaderText = "Celular"
myEstiloCol3.Width = 90
'agregando el primer estilo
myEstiloGrid.GridColumnStyles.Add(myEstiloCol)
myEstiloGrid.GridColumnStyles.Add(myEstiloCol1)
myEstiloGrid.GridColumnStyles.Add(myEstiloCol2)
'myEstiloGrid.GridColumnStyles.Add(myEstiloCol3)
'agrengando el estilo a la grilla
DataGrid1.TableStyles.Add(myEstiloGrid)
End Function