MSHFlexGrid的表头合并(VB中和VS2005中)

Dim  lngIndex  As   Long
     Dim  lngRow  As   Long
    
     With  MSHFlexGrid1
        .Rows  =   13
        .Cols  =   15
        .MergeCells  =  flexMergeFree  ' ?????????
        
        .TextMatrix( 0 ,  0 )  =   " 拟晋升专业 "
        .TextMatrix( 1 ,  0 )  =   " 拟晋升专业 "
        
        
         For  lngIndex  =   1   To   6
            .TextMatrix( 0 , lngIndex)  =   " 拟晋升职称级别 "
         Next
        .TextMatrix( 1 ,  1 )  =   " 小计 "
        .TextMatrix( 1 ,  2 )  =   " 正高 "
        .TextMatrix( 1 ,  3 )  =   " 副高 "
        .TextMatrix( 1 ,  4 )  =   " 中级 "
        .TextMatrix( 1 ,  5 )  =   " 助师级 "
        .TextMatrix( 1 ,  6 )  =   " 员级 "
        
         For  lngIndex  =   7   To   11
            .TextMatrix( 0 , lngIndex)  =   " 晋 升 方 式 "
         Next
        .TextMatrix( 1 ,  7 )  =   " 正常晋升 "