ADD URL Hotspot to PDF

This function adds a URL Hotspot to an existing PDF. An URL can be not only http:// but also mailto://

Sample:

dim pdf
dim CurrentPage
dim lleft
dim lTop
dim lWidth
dim lHeight
dim lLink

set pdf = createobject("AloahaPDF.Edit")

if pdf.load_pdf_to_mem(cstr("c:\1.pdf")) = true then

   pdf.CurrentPage=1

   lleft=0
   lTop=pdf.PageHeight
   lHeight=pdf.PageHeight
   lWidth=pdf.pagewitdth
   lLink="http://www.aloaha.com"

      if pdf.add_link_area(cdbl(lleft), cdbl(lTop), cdbl(lWidth), cdbl(lHeight), cstr(lLink)) = true then
        if pdf.save_pdf_to_file(cstr("c:\2.pdf")) = true then
          msgbox "OK"
        end if
     end if

end if


set pdf = nothing