How to add image and text in the PDF table cell using C# and VB.NET

using Syncfusion.Pdf;
using Syncfusion.Pdf.Graphics;
using Syncfusion.Pdf.Tables;
using System.Drawing;

Imports Syncfusion.Pdf
Imports Syncfusion.Pdf.Graphics
Imports Syncfusion.Pdf.Tables
Imports System.Drawing

//Create a new PDF document
PdfDocument document = new PdfDocument();
//Add a page
PdfPage page = document.Pages.Add();
//Create a PdfLightTable
PdfLightTable pdfLightTable = new PdfLightTable();
//Create a data table
DataTable dataTable = new DataTable();
//Add columns to data table
dataTable.Columns.Add("");
dataTable.Columns.Add("");
//Add rows to data table 
for (int i = 0; i < 3; i++)
    dataTable.Rows.Add();
//Assign data source
pdfLightTable.DataSource = dataTable;
pdfLightTable.BeginCellLayout += pdfLightTable_BeginCellLayout;
pdfLightTable.BeginRowLayout += PdfLightTable_BeginRowLayout;
//Draw light table to the page of PDF document
pdfLightTable.Draw(page, new RectangleF(0, 50, page.GetClientSize().Width, page.GetClientSize().Height));
//Draw text
page.Graphics.DrawString("Essential Studio Reporting Edition", new PdfStandardFont(PdfFontFamily.Helvetica, 15, PdfFontStyle.Bold), PdfBrushes.Orange, new PointF(0, 20));
//Save the document
document.Save("Table.pdf");
//close the document
document.Close(true);
//This will open the PDF file so, the result will be seen in default PDF viewer
Process.Start("Table.pdf");

'Create a new PDF document
Dim document As New PdfDocument()
'Add a page
Dim page As PdfPage = document.Pages.Add()
'Create a PdfLightTable
Dim pdfLightTable As New PdfLightTable()
'Create a data table
Dim dataTable As New DataTable()
'Add columns to data table
dataTable.Columns.Add("")
dataTable.Columns.Add("")
'Add rows to data table 
For i As Integer = 0 To 2
    dataTable.Rows.Add()
Next
'Assign data source
pdfLightTable.DataSource = dataTable
AddHandler pdfLightTable.BeginRowLayout, AddressOf PdfLightTable_BeginRowLayout
AddHandler pdfLightTable.BeginCellLayout, AddressOf pdfLightTable_BeginCellLayout
'Draw light table to the page of PDF document
pdfLightTable.Draw(page, New RectangleF(0, 50, page.GetClientSize().Width, page.GetClientSize().Height))
'Draw text
page.Graphics.DrawString("Essential Studio Reporting Edition", New PdfStandardFont(PdfFontFamily.Helvetica, 15, PdfFontStyle.Bold), PdfBrushes.Orange, New PointF(0, 20))
'Save the document
document.Save("Table.pdf")
'close the document
document.Close(True)
'This will open the PDF file so, the result will be seen in default PDF viewer
Process.Start("Table.pdf")

private void PdfLightTable_BeginRowLayout(object sender, BeginRowLayoutEventArgs args)
{
    args.MinimalHeight = 100;
}
 
private void pdfLightTable_BeginCellLayout(object sender, BeginCellLayoutEventArgs args)
{
    PdfFont font = new PdfStandardFont(PdfFontFamily.Helvetica, 10, PdfFontStyle.Bold);
    //Draw string and draw image in the same cell
    if (args.CellIndex == 0)
    {
        string[] files = Directory.GetFiles(path);
        //Draw string
        args.Graphics.DrawString(topic[args.RowIndex], font, PdfBrushes.Black, args.Bounds.X, args.Bounds.Y);
        //Draw image
        PdfImage image = PdfImage.FromFile(files[args.RowIndex]);
        args.Graphics.DrawImage(image, args.Bounds.X, args.Bounds.Y + font.Height, args.Bounds.Width, args.Bounds.Height - font.Height);
    }
    else
    {
        args.Graphics.DrawString(content[args.RowIndex], new PdfStandardFont(PdfFontFamily.TimesRoman, 10), PdfBrushes.Black, args.Bounds);
    }
}

Private Sub PdfLightTable_BeginRowLayout(sender As Object, args As BeginRowLayoutEventArgs)
    args.MinimalHeight = 100
End Sub
 
Private Sub pdfLightTable_BeginCellLayout(sender As Object, args As BeginCellLayoutEventArgs)
    Dim font As PdfFont = New PdfStandardFont(PdfFontFamily.Helvetica, 10, PdfFontStyle.Bold)
    'Draw string and draw image in the same cell
    If args.CellIndex = 0 Then
        Dim files As String() = Directory.GetFiles(path)
        'Draw string
        args.Graphics.DrawString(topic(args.RowIndex), font, PdfBrushes.Black, args.Bounds.X, args.Bounds.Y)
        'Draw image
        Dim image As PdfImage = PdfImage.FromFile(files(args.RowIndex))
        args.Graphics.DrawImage(image, args.Bounds.X, args.Bounds.Y + font.Height, args.Bounds.Width, args.Bounds.Height - font.Height)
    Else
        args.Graphics.DrawString(content(args.RowIndex), New PdfStandardFont(PdfFontFamily.TimesRoman, 10), PdfBrushes.Black, args.Bounds)
    End If
End Sub