FlexGrid控件中同一行的相同单元格合并？

Question

Private Sub Form_Load()    With MSFlexGrid1
    
        .MergeCells = flexMergeRestrictRows
        .Rows = 20
        .Cols = 11
        
        Dim l As Long
        Dim ly As Long
        For l = 1 To 19
            For ly = 1 To 10
                .TextMatrix(l, ly) = l
            Next
            
            If l <= 10 Then .MergeRow(l) = True
        Next
    
    End With
    
End SubPrivate Sub Form_Resize()
    MSFlexGrid1.Move 0, 0, ScaleWidth, ScaleHeight
End Sub

Answer 1

Un1兄弟：
   真诚感谢你热情的帮助，现将大洋100奉上，小小薄礼，不成敬意，后有问题再向你请教！
                                                                   FLYING