VISOR DE IMÁGENES (PICTUREBOX-IMAGELIST)

CODIFICACIÓN:

Public Class FORM1

    Private Sub TIMER1_TICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles TIMER1.TICK

        Static IM

        IM = IM + 1

        PICTUREBOX1.IMAGE = IMAGELIST1.IMAGES(IM)

        If IM = 4 Then

            IM = 0

        End If

    End Sub

End Class