Créer et lire une valeur de propriété personnalisée

Sub Main
	GlobalScope.BasicLibraries.loadLibrary ("zBasic")
	
	bRetour = zBasic.ProprieteCree("Test")
	if bRetour then
		zBasic.ProprieteEcrit("Test", "zBasic")
		msgbox zBasic.ProprieteLit("Test")
	endif
End Sub