[VB CS5] Adding buttons with page hyperlinks (hyperlinkpagedestinations)

Question

Hi people.
I'm trying to add buttons with a script that link to pages.
I have got this far but the documentation is sparse and i can't find a solution.
My code so far
REM====Initiliasing
Set myInDesign = CreateObject("InDesign.Application")
Set myDocument = myInDesign.Documents.Item(1)
Set myPage = myDocument.Pages.Item(1)
REM====Adding the button
Set but = myDocument.Pages.Item(1).Buttons.Add
but.GeometricBounds = Array(0,0,25,25)
but.select()
REM==== Adding the hyperlink
set my_hyperlink = myDocument.hyperlinkPageDestinations.add(myDocument.Pages.Item(232))
Creates the button ok, seems to create the hyperlink ok. That hyperlink should go to page 232.
How do you add the hyperlink to the button so the button goes to page 232 when clicked?

Answer 1

Ok i'm just going to go ahead and answer my own question.
Seems you can't add it to a button but can add the hyperlink to a rectangle and it works.
So the correct code looks like this
Set myInDesign = CreateObject("InDesign.Application")
Set myDocument = myInDesign.Documents.Item(1)
Set myPage = myDocument.Pages.Item(1)
Set oImageRect = myDocument.Pages.Item(1).Rectangles.add
oImageRect.GeometricBounds = Array(50,0,25,25)
set my_hyperlinkPAGE=myDocument.hyperlinkPageDestinations.add(myDocument.Pages.Item(5))
Set my_hyperlinkSource = myDocument.HyperlinkPageItemSources.Add(oImageRect)
set myHyperlink = myDocument.Hyperlinks.Add(my_hyperlinkSource, my_hyperlinkPAGE)
Voila, goes to page 5!