without comment please
Sure, here's the modified code without comments:\n\n```vbnet\nImports iTextSharp.text\nImports iTextSharp.text.pdf\nImports System.IO\n\nPublic Class Form1\n    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click\n        Dim doc As New Document()\n        Dim fileName As String = \"DataGridViewExport.pdf\"\n        Dim filePath As String = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), fileName)\n        Dim writer As PdfWriter = PdfWriter.GetInstance(doc, New FileStream(filePath, FileMode.Create))\n        doc.Open()\n\n        Dim table As New PdfPTable(DataGridView1.Columns.Count)\n        Dim header As New PdfPCell(New Phrase(\"DataGridView Export\"))\n        header.Colspan = DataGridView1.Columns.Count\n        header.HorizontalAlignment = 1\n        table.AddCell(header)\n\n        Dim totalValues = New Decimal(DataGridView1.Columns.Count - 1) {}\n\n        For Each column As DataGridViewColumn In DataGridView1.Columns\n            Dim cell As New PdfPCell(New Phrase(column.HeaderText))\n            table.AddCell(cell)\n        Next\n\n        For Each row As DataGridViewRow In DataGridView1.Rows\n            For i As Integer = 0 To DataGridView1.Columns.Count - 1\n                Dim cell As DataGridViewCell = row.Cells(i)\n                Dim value As Decimal = 0\n                If Decimal.TryParse(cell.Value.ToString(), value) Then\n                    totalValues(i) += value\n                End If\n                table.AddCell(cell.Value.ToString())\n            Next\n        Next\n\n        For i As Integer = 0 To DataGridView1.Columns.Count - 1\n            Dim cell As New PdfPCell(New Phrase(totalValues(i).ToString()))\n            table.AddCell(cell)\n        Next\n\n        doc.Add(table)\n        doc.Close()\n        Process.Start(filePath)\n    End Sub\nEnd Class\n```