ultragrid Header row formating

Question

hai every one ,

this is koti i am developing windows application in that i want to export the ultraGrid data to excel sheet through UltraGridExcelExporter data will be exported successfully but the header rows can't came in excel sheet by default it was came but formatting that headers and rows i use headerRow Exporting ,RowExporting events the heading will not display what is the problem the following is the code see....

Header row exporting
Private Sub UltraGridExcelExporter1_HeaderRowExporting(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.HeaderRowExportingEventArgs) Handles UltraGridExcelExporter1.HeaderRowExporting
        ' e.Cancel = True
        Dim theHeaderFormat As IWorksheetCellFormat = e.Workbook.CreateNewWorksheetCellFormat()
        theHeaderFormat.Font.Bold = ExcelDefaultableBoolean.[True]
        theHeaderFormat.Font.Name = "Comic Sans"
        theHeaderFormat.Font.Color = Color.Blue
        theHeaderFormat.FillPatternBackgroundColor = Color.LightGray
        e.GridRow.Cells(0).Value = e.GridRow.Cells(0).Text
        For Each ucell As UltraGridCell In e.GridRow.Cells
            If Not ucell.Hidden Then
                e.CurrentWorksheet.Rows(e.GridRow.Index).Cells(ucell.Column.Index).Value = ucell.Column.Header.Caption.ToString()
                e.CurrentWorksheet.Rows(e.GridRow.Index).Cells(ucell.Column.Index).CellFormat.SetFormatting(theHeaderFormat)
                'MessageBox.Show(e.CurrentWorksheet.Rows(e.GridRow.Index).Cells(ucell.Column.Index).Value)
            End If
        Next
    End Sub

row exporting

Private Sub UltraGridExcelExporter1_RowExporting(ByVal sender As System.Object, ByVal e As Infragistics.Win.UltraWinGrid.ExcelExport.RowExportingEventArgs) Handles UltraGridExcelExporter1.RowExporting
        e.Cancel = True
        If isHeader Then
            _theCellFormat = e.Workbook.CreateNewWorksheetCellFormat()
            _theCellFormat.Font.Bold = ExcelDefaultableBoolean.[False]
            _theCellFormat.Font.Name = "Comic Sans"
            _theCellFormat.Font.Color = Color.Black
            For Each ucell As UltraGridCell In e.GridRow.Cells
                e.CurrentWorksheet.Rows(e.GridRow.Index).Cells(ucell.Column.Index).Value = ucell.Value
                e.CurrentWorksheet.Rows(e.GridRow.Index).Cells(ucell.Column.Index).CellFormat.SetFormatting(_theCellFormat)
            Next
        End If
    End Sub