Riposizionare in modo circolare più oggetti posti in pila

Da Gambas-it.org - Wikipedia.

Il caso è quello in cui, dopo aver posizionato all'interno di un qualsiasi Contenitore uno sull'altro diversi Oggetti grafici, si procede a riposizionarli in modo circolare. L'Oggetto grafico posto in cima agli altri passerà in fondo alla pila degli Oggetti.

Nell'esempio, che segue, abbiamo quattro Button di diverso colore, posti uno sull'altro. Cliccando sul Button presente in quel momento in cima alla pila, esso verrà posto in fondo agli altri portando così in cima quello immediatamente sottostante:

Public Sub Form_Open()

 Dim bt As Button
 Dim b As Byte
 
 For b = 0 To 3
   With bt = New Button(Me) As "bt"
     .X = 20
     .Y = 20
     .W = 50
     .H = 50
     .Foreground = Color.Yellow
     .Text = Str(b)
     .Background = Color.RGB(200 / (b + 1), 70 * b, 50 * b)
   End With
 Next
   
End

Public Sub bt_MouseDown()
 
' Il metodo ".Lower()" pone l'oggetto al livello più basso nella gerarchia dei Controlli appartenenti al medesimo "Genitore":
 Last.Lower

End