Private Sub Timer()
        Dim Finish As Date = Now.AddSeconds(5)
        Dim ii As Integer
        Do While ii < 3 ' Max ImageIndex
            If Now > Finish Then 
                Label1.ImageIndex = ii
                ii += 1
                Finish = Now.AddSeconds(5)
                Label1.Refresh()
            End If
            System.Threading.Thread.Sleep(100)
        Loop
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist