AnimationPeople (Москвитина)

 Programm Sasha;
Public Class Form1
    Dim k As Integer
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick '
        k = k + 1 'При работе нашего таймера будем прибавлять каждый раз единицу
        If k = 1 Then PictureBox1.Image = My.Resources._1  'Если k=1, то показываем изображение на PictureBox1, первую картинку
        If k = 2 Then PictureBox1.Image = My.Resources._2  'Если k=2, то показываем изображение на PictureBox1, вторую картинку
        If k = 3 Then PictureBox1.Image = My.Resources._3  'Если k=3, то показываем изображение на PictureBox1, третью картинку
        If k = 4 Then PictureBox1.Image = My.Resources._4  'Если k=4, то показываем изображение на PictureBox1, четвертую картинку
        If k = 5 Then PictureBox1.Image = My.Resources._5  'Если k=5, то показываем изображение на PictureBox1, пятую картинку
        If k = 6 Then PictureBox1.Image = My.Resources._6  'Если k=6, то показываем изображение на PictureBox1, шестую картинку
        If k = 7 Then PictureBox1.Image = My.Resources._7  'Если k=7, то показываем изображение на PictureBox1, седьмую картинку
        'В конце обнуляем k, чтобы картинка не останавливалась
        If k = 8 Then PictureBox1.Image = My.Resources._8 : k = 0 'Если k=8, то показываем изображение на PictureBox1, восьмую картинку
    End Sub
End Class
<code/>