ccbCode

'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