cabeceras en mshflexgrid

[juanutcm]

Lo que hice fue en el diseño del grid solo quitar la opcion de ColumnHeaders y en el codigo eliminar la linea de agregar el elemento (AddItem=" ") y agregar la linea de kruzado y me quedo de la siguiente manera:

Sub doInicializarGridMateriasDescargar()
'INICIO DE OPTIMIZAR CÓDIGO
With dgdMateriasDescargar
.Cols = 5 'Inicializar con 5 columnas al grid de materias
.Rows = 2 'Inicializar con 2 renglones al grid de materias
.FixedRows = 1 'Linea de kruzado
.TextMatrix(0, 1) = "Clave Materia" 'Inicializar control
.TextMatrix(0, 2) = "Nombre Materia" 'Inicializar control
.TextMatrix(0, 3) = "Numero de renglon" 'Inicializar control
.TextMatrix(0, 4) = "Id Evaluaciones" 'Inicializar control
.ColWidth(0, 0) = 400 'Asignar el ancho de la columna del grid
.ColWidth(1, 0) = 1500 'Asignar el ancho de la columna del grid
.ColWidth(2, 0) = 4000 'Asignar el ancho de la columna del grid
.ColWidth(3, 0) = 0 'Asignar el ancho de la columna del grid
.ColWidth(4, 0) = 0 'Asignar el ancho de la columna del grid
.Left = 180 'Asignar la ubicacion del grid
.Top = 1620 'Asignar la ubicacion del grid
.Height = 1815 'Asignar el alto del grid
.Width = 6225 'Asignar el ancho del grid
.Visible = True 'Inicializar control
End With
'FIN DE OPTIMIZAR CÓDIGO
End Sub