|
'"I" dev'essere dichiarata come variabile globale
Dim I% Private Sub Command1_Click() I = I + 1 If I > ImageList1.ListImages.Count Then I = 1 Picture1.Picture = ImageList1.ListImages(I).Picture Else Picture1.Picture = ImageList1.ListImages(I).Picture End If End Sub 'Naturalmente aggiungete il controllo imagelist e 'nel controllo delle immagini |