XProfan

cls
var hDlg& = create("Dialog", %hWnd, "Test", 10,10,300,200)
var x& = Control("SysLink","<a href=qhttps://www.xprofan.com/q>xprofan.com</a>",$50000000,10,10,80,25,hDlg&,9001,%hInstance,0)
var y& = Control("SysLink","<a>Hugo</a>",$50000000,10,50,80,25,hDlg&,9002,%hInstance,0)
var z& = Control("SysLink","<a>Toast</a>",$50000000,10,90,80,25,hDlg&,9003,%hInstance,0)
var ende& = Control("SysLink","<a>Ende</a>",$50000000,10,130,80,25,hDlg&,9004,%hInstance,0)

while 1

    waitinput

    if clicked(x&)

        Messagebox("Weblink: XProfan","Test",0)
        print gettext$(x&)

    elseif clicked(y&)

        Messagebox("Textlink: Hugo","Test",0)

    elseif clicked(z&)

        Messagebox("Textlink: Toast","Test",0)

    elseif clicked(ende&)

        break

    endif

endwhile

end