Program.vb
Imports Bytescout.PDF
''' <summary>
''' This example demonstrates how to add an audio annotaion.
''' </summary>
Class Program
Shared Sub Main()
' Create new document
Dim pdfDocument = New Document()
pdfDocument.RegistrationName = "demo"
pdfDocument.RegistrationKey = "demo"
' Add page
Dim page = New Page(PaperFormat.A4)
pdfDocument.Pages.Add(page)
' Add sound annotation
Dim sound = New Sound("sample.wav")
Dim soundAnnotation = New SoundAnnotation(sound, 20, 20, 20, 20)
page.Annotations.Add(soundAnnotation)
' Save document to file
pdfDocument.Save("result.pdf")
' Cleanup
pdfDocument.Dispose()
' Open document in default PDF viewer app
Process.Start("result.pdf")
End Sub
End Class
Click here to get your Free Trial version of the SDK
also available as: