Imports PdfSharp.Pdf Imports PdfSharp.Pdf.Annotations Imports PdfSharp.Pdf.IO Imports PdfSharp.Drawing Public Class frmAnnotations Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try Me.Cursor = Cursors.WaitCursor ClassAnnotation.Annotate_PDF(txttitle.Text, txtcontent.Text, txtSeitenzahl.Text, True) Me.Cursor = Cursors.Default Me.Close() Catch ex As Exception LOGGER.Error(ex) MsgBox(ex.Message, MsgBoxStyle.Critical) Me.Cursor = Cursors.Default End Try End Sub End Class