Créer un dialogue pour afficher le contenu d'une plage

Sub Main
GlobalScope.BasicLibraries.loadLibrary ("zBasic")

	oTablo = zPlage.VersTable ( "A1:D7", "Feuille4" )
	oDlg = zDial.Cree("Affiche table", 0, 0, 200, 150)
	oCtrl = zCtrl.Cree(oDlg, "Contrôle de table", 10, 10, 180, 120)
	zCtrl.Parametre(oCtrl, "SelectionModele", 1)
	zCtrl.Parametre(oCtrl, "ContenuTable", oTablo)
	zCtrl.Ajoute(oDlg, oCtrl, "Tablo")
	oRetour = zDial.Lance(oDlg)	
End Sub