Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
  Dim fileCreato As String = "c:\tmp\prova.pdf"

  Try
    Me.Cursor = Cursors.WaitCursor
    Application.UseWaitCursor = True

    Using ms As New MemoryStream()
      Using writer As New tkp.PdfWriter(ms)
        Using pdf As New tkp.PdfDocument(writer)
          Using document As New tl.Document(pdf)
            Dim fontCourier As tkf.PdfFont = tkf.PdfFontFactory.CreateFont(iText.IO.Font.Constants.StandardFonts.COURIER)
            document.Add(New tle.Paragraph("iText is:").SetFont(fontCourier))
            Dim lista As New tle.List()
            With lista
              .SetSymbolIndent(12)
              .SetListSymbol(ChrW(&H2022))
              .SetFont(fontCourier)

              .Add(New tle.ListItem("1° frase"))
              .Add(New tle.ListItem("2° frase"))
            End With
            document.Add(lista)
          End Using
        End Using
      End Using
      'Scrive un file su disco da un flusso dati in MemoryStream
      l.MemoryStreamToFile(ms, fileCreato)
      'MessageBox.Show(String.Format("Il file {0} è stato creato correttamente.", fileCreato))

    End Using
    'apro il file col programma predefinito
    l.AproFileConProgrammaPredefinito(fileCreato)


  Catch ex As Exception
    MessageBox.Show(ex.Message)

  Finally
    Application.UseWaitCursor = False
    Me.Cursor = Cursors.Default

  End Try
End Sub

'Dim fontCourier As tkf.PdfFont = tkf.PdfFontFactory.CreateFont(iText.IO.Font.Constants.StandardFonts.COURIER)

Private fontCourier As tkf.PdfFont = tkf.PdfFontFactory.CreateFont(iText.IO.Font.Constants.StandardFonts.COURIER)