Public Sub Form_Activate() Dim n As Integer grdTabla.Rows.Count = numfilas grdTabla.Columns.Count = numcampos For n = 0 To numcampos - 1 grdTabla.Columns[n].Expand = True Next End Public Sub grdTabla_Data(Row As Integer, Column As Integer) Dim camposactuales As String[] Dim f As New Font camposactuales = Split(registros[row], ";", "", True) If row Mod 2 = 0 Then grdTabla.Data.Background = Color.White Else grdTabla.Data.Background = Color.LightBackground Endif grdTabla.Data.Text = camposactuales[Column] End