GraphicsWindow.Show() 'Ouvre la fenêtre graphique
GraphicsWindow.BackgroundColor = "Azure" 'colorie en azure l'arrière plan de la fenêtre graphique
Helloworld = Shapes.AddText("Hello world") 'écris le texte "Hello World" sur la fenêtre graphique
Shapes.Move(Helloworld, GraphicsWindow.Width / 2 - 30, GraphicsWindow.Height /2 - 10) 'Place le texte au milieu de la fenêtre
Program.Delay(2000) 'attends 2 secondes
'Zoom le texte
For i = 1 To 9 Step 0.1
  Shapes.Zoom(Helloworld, i, i)
  Program.Delay(50)
EndFor
GraphicsWindow.MouseUp = Mouse_click
Sub Mouse_click
  Program.End() 'Ferme le programme
EndSub