cabeceras en mshflexgrid

[juanutcm]

Muchas gracias... ahora no funciona como realmente necesito que fucione paso el codigo donde inicializo el control para que me digan donde fallo o que debo de quitar o donde debo de poner la linea que Kruzado comento:

Sub doInicializarGridMateriasDescargar()
'INICIO DE OPTIMIZAR CÓDIGO
With dgdMateriasDescargar
.AddItem " " 'Agregar nuevo elemento al control
.Cols = 5 'Inicializar con 5 columnas al grid de materias
.Rows = 2 'Inicializar con 2 renglones al grid de materias
.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
.ColWidth(4, 0) = 0
.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