Visualizza wikitesto di Riposizionare in modo circolare più oggetti posti in pila

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.
<BR>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()
  
 <FONT color=gray>' ''Il metodo ".Lower()" pone l'oggetto al livello più basso nella gerarchia dei Controlli appartenenti al medesimo "Genitore":''</font>
  Last<FONT color=#B22222>.Lower</font>
 
 End