Vb.net如何合并列

Private Sub dataGridView1_CellPainting(sender As Object, e As DataGridViewCellPaintingEventArgs) Handles dataGridView1.CellPainting
    If e.RowIndex >= 0 AndAlso e.ColumnIndex >= 0 Then
        Dim dgv As DataGridView = CType(sender, DataGridView)
        Dim cell1 As DataGridViewCell = dgv.Rows(e.RowIndex).Cells(e.ColumnIndex)
        Dim cell2 As DataGridViewCell = dgv.Rows(e.RowIndex).Cells(e.ColumnIndex + 1)

        ' 判断需要合并的条件，这里假设当两个相邻单元格的值相等时进行合并
        If cell1.Value IsNot Nothing AndAlso cell2.Value IsNot Nothing AndAlso cell1.Value.ToString() = cell2.Value.ToString() Then
            e.Graphics.FillRectangle(New SolidBrush(cell1.InheritedStyle.BackColor), e.CellBounds)

            ' 合并单元格的文本
            Dim text As String = cell1.Value.ToString()
            Dim textSize As SizeF = e.Graphics.MeasureString(text, e.CellStyle.Font)
            e.Graphics.DrawString(text, e.CellStyle.Font, Brushes.Black, e.CellBounds.Left + (e.CellBounds.Width - textSize.Width) / 2, e.CellBounds.Top + (e.CellBounds.Height - textSize.Height) / 2)

            ' 隐藏第二个单元格
            e.Handled = True
        End If
    End If
End Sub