Ajouter un hyperlien dans une boîte de dialogue

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	oDlg = zDial.Charge("Dialog1")
	oCtrl = zCtrl.Cree(oDlg, "Hyperlien", 10, 10, 100, 80)
	zCtrl.Parametre(oCtrl, "URL", "https://zbasic.beaussier.com")
	zCtrl.Parametre(oCtrl, "Nom", "Lien")
	zCtrl.Parametre(oCtrl, "Alignement", 1)
	zCtrl.Parametre(oCtrl, "Etiquette", "Facilitez-vous le Basic !") 
	zCtrl.Parametre(oCtrl, "CouleurTexte", zBasic.Couleur("Bleu"))
	zCtrl.Ajoute(oDlg, oCtrl, "LienSite")

	oRetour = zDial.Lance(oDlg)
	if oRetour.Tag = 0 then exit sub
	'Dialogue validé > poursuite du code...
End Sub