How to create a Column Header to cover two columns in WinForms GridControl?

//Event triggered from Form_load
this.gridGroupingControl1.QueryCoveredRange += gridGroupingControl1_QueryCoveredRange;
void gridGroupingControl1_QueryCoveredRange(object sender, GridTableQueryCoveredRangeEventArgs e)
{
     GridTable table = e.Table;
     if (e.RowIndex < table.DisplayElements.Count)
     {
        Element el = table.DisplayElements[e.RowIndex];
        if (el.Kind == DisplayElementKind.ColumnHeader && el is ColumnHeaderRow)
        {
          GridTableCellStyleInfo style = table.GetTableCellStyle(e.RowIndex, e.ColIndex);
          GridTableCellStyleInfoIdentity id = style.TableCellIdentity;
          if (id.Column != null && id.Column.MappingName == "Col0")
          {
              // Covering the Col0 across 2 columns.
              e.Range = GridRangeInfo.Cells(e.RowIndex, e.ColIndex, e.RowIndex, e.ColIndex + 1);
              e.Handled = true;
          }
       }
     }
}

'Event triggered from Form_load
AddHandler Me.gridGroupingControl1.QueryCoveredRange, AddressOf gridGroupingControl1_QueryCoveredRange
Private Sub gridGroupingControl1_QueryCoveredRange(ByVal sender As Object, ByVal e As GridTableQueryCoveredRangeEventArgs)
   Dim table As GridTable = e.Table
   If e.RowIndex < table.DisplayElements.Count Then
     Dim el As Element = table.DisplayElements(e.RowIndex)
     If el.Kind = DisplayElementKind.ColumnHeader AndAlso TypeOf el Is ColumnHeaderRow Then
       Dim style As GridTableCellStyleInfo = table.GetTableCellStyle(e.RowIndex, e.ColIndex)
       Dim id As GridTableCellStyleInfoIdentity = style.TableCellIdentity
       If id.Column IsNot Nothing AndAlso id.Column.MappingName = "Col0" Then
         ' Covering the Col0 across 2 columns.
         e.Range = GridRangeInfo.Cells(e.RowIndex, e.ColIndex, e.RowIndex, e.ColIndex + 1)
         e.Handled = True
       End If
     End If
   End If
End Sub