Older Version
Newer Version
Alyce
Apr 8, 2009
'Make a custom control hyperlink with a Liberty BASIC graphicbox.
'-----------------------------------------------------------------'
[SetupWindow]
NoMainWin
WindowWidth = 400
WindowHeight = 200
UpperLeftX = Int((DisplayWidth-WindowWidth)/2)
UpperLeftY = Int((DisplayHeight-WindowHeight)/2)
Link1.Width = 80
Link1.Height = 26
GraphicBox #Win.Link1, 4, 4, Link.Width, Link.Height
Stylebits #Win.Link1, 0, _WS_BORDER, 0, 0
Open "Hyperlink Custom Control" For Window As #Win
#Win, "TrapClose [Quit.Win]"
Wait
[Quit.Win]
Close #Win
End
[Link1.Click]
Wait
[Link1.Move]
Wait