Visual Basic

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim doc As New iTextSharp.text.Document(iTextSharp.text.PageSize.A4, 10, 10, 10, 10)
  Dim fi As New IO.FileInfo(New IO.FileInfo(Application.ExecutablePath).Directory.FullName & "\test.pdf")
  Dim sw As iTextSharp.text.pdf.PdfWriter = iTextSharp.text.pdf.PdfWriter.GetInstance(doc, New IO.FileStream(fi.FullName, IO.FileMode.Create))
  doc.Open()
  Dim pg As New iTextSharp.text.Paragraph("Eerste test")
  Dim bf1 As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont(System.Environment.GetFolderPath(Environment.SpecialFolder.Fonts) &
    "\Arial.ttf", iTextSharp.text.pdf.BaseFont.CP1250, False)
  Dim bf2 As iTextSharp.text.pdf.BaseFont = iTextSharp.text.pdf.BaseFont.CreateFont(System.Environment.GetFolderPath(Environment.SpecialFolder.Fonts) &
    "\Wingding.ttf", iTextSharp.text.pdf.BaseFont.CP1250, False)
  Dim fnt As New iTextSharp.text.Font(bf2)
  Dim bc As New iTextSharp.text.BaseColor(Color.Red)
  fnt.Color = bc
  fnt.Size = 20
  Dim prg As New iTextSharp.text.Paragraph("Symbolen", fnt)

  Dim i As iTextSharp.text.Image = New iTextSharp.text.Jpeg(New Uri("D:\Data_Jan\Mijn afbeeldingen\000000-78025-200x200.jpg"))
  i.Rotation = 45
  doc.Add(pg)
  doc.Add(prg)
  doc.Add(New iTextSharp.text.Jpeg(i))
  Dim cb As iTextSharp.text.pdf.PdfContentByte = sw.DirectContent
  cb.MoveTo(0, 0)
  cb.LineTo(doc.PageSize.Width, doc.PageSize.Height)
  cb.SetColorStroke(New iTextSharp.text.BaseColor(Color.Blue))
  cb.Stroke()

  cb.SetFontAndSize(bf1, 50)
  cb.BeginText()
  cb.MoveText(200, 100)

  cb.ShowText("Text on 200-100")
  cb.EndText()

  'rotation

  'end rotation
  doc.Close()
  Process.Start(fi.FullName)
  Me.Close()
End Sub