Sub Window_Onload()
Message="Bienvenue sur le site de l'Arverne Chapter France - Welcome on the Arverne Chapter France site"
NBespaces=200

While NBespaces>0
For i=1 to NBespaces
	Espaces=Espaces&""
	Next
	Window.status=Espaces&Message
	NBespaces=NBespaces-1
	Espaces=""
Wend
End Sub