Dar formato en un MSFlexGrid (VB6)

Escenario

Sistema Operativo: Windows 7 Enterprise
Lenguaje de Programación: Visual Basic 6.0

Implementación

Private Sub pFormatoDeGrilla()
    Dim I As Integer
    With flg
         'Añade fila
        .AddItem ""
        For I = 0 To 1
            'Define cantidad de columnas
            .Cols = I + 1
            'Posiciona cursor en la primera fila para dar formato
            .Col = I: .Row = 0
            'Establece ancho de columnas      
            .ColWidth(I) = Choose(I + 1, 0, 1400)
            'Establece alineación de columnas
            .ColAlignment(I) = Choose(I + 1, 1, 1)
            'Establece en negritas el titulo de cada cabecera
           'de columna
            .CellFontBold = True
            'Establece el texto de cada cabecera de columna
            .Text = Choose(I + 1, "Codigo", "Descripción")
        Next I
    End With
End Sub