Ciao Baffo spero di fare cosa gradita... con immenso piacere ho ritrovato il tuo script che allego :
Sub Main
Dim Numero,Pos,Poste(10),Ruota(12)
Dim Ambo1(2),Ambo2(2),Ambo3(2),Ambo4(2),Ambo5(2),Ambo6(2),Ambo7(2),Ambo8(2),Ambo9(2),Ambo10(2),Ambo11(2),Ambo12(2)
Dim...