Public Sub Tasto_MouseDown()
bt = Last
EndPublic Sub Tasto_MouseDrag()
bt = Last
bt.Drag("")
EndInc iAggiungo che la riga "i = i + 1" potrà essere sostituita ovviamente conSì hai ragione è più elegante. Le brutte abitudini... :-[Codice: [Seleziona]Inc i