Как написать общий код для отображения большого количества изображений в vb.net 2.0?

Question

Imports System.Threading.Thread 
Public Class Form1 
Dim delay As Integer = 200 
Dim i As Integer = 1 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    While i <= 5 

     PictureBox1.Visible = True 
     PictureBox1.Refresh() 
     Sleep(delay) 
     PictureBox1.Visible = False 


     PictureBox2.Visible = True 
     PictureBox2.Refresh() 
     Sleep(delay) 
     PictureBox2.Visible = False 


     PictureBox3.Visible = True 
     PictureBox3.Refresh() 
     Sleep(delay) 
     PictureBox3.Visible = False 


     PictureBox4.Visible = True 
     PictureBox4.Refresh() 
     Sleep(delay) 
     PictureBox4.Visible = False 


     PictureBox5.Visible = True 
     PictureBox5.Refresh() 
     Sleep(delay) 
     PictureBox5.Visible = False 

     i = i + 1 
     If i = 6 Then 
      i = 1 
     End If 

    End While 
End Sub 

Я написал вышеуказанный код. работает. но следующий код не работает. Я хочу свести к минимуму код. Я хочу использовать 20 картинок. вместо этого кода я хочу использовать небольшой код, но он будет выполнять ту же работу. пожалуйста помогите.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    While i <= 5 
     Dim pic As PictureBox 
     Dim matches() As Control 

     matches = Me.Controls.Find("PictureBox" & i.ToString(), True) 
     If matches.Length > 0 AndAlso TypeOf matches(0) Is Label Then 
      pic = DirectCast(matches(0), PictureBox) 
      pic.Visible = True 
      pic.Refresh() 
      Sleep(delay) 
      pic.Visible = False 
     End If 

     i = i + 1 
     If i = 6 Then 
      i = 1 
     End If 
    End While 
End Sub 
    End Class 

Answer 1

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click 
    While i <= 5 
     Dim pic As PictureBox 
     Dim matches() As Control 

     matches = Me.Controls.Find("PictureBox" & i.ToString(), True) 
     If matches.Length > 0 AndAlso TypeOf matches(0) Is PictureBox Then 
      pic = DirectCast(matches(0), PictureBox) 
      pic.Visible = True 
      pic.Refresh() 
      Wait(delay) 
      pic.Visible = False 
     End If 

     i = i + 1 
     If i = 6 Then 
      i = 1 
     End If 
    End While 
End Sub 

этот код правильно ... жаль, что я написал неправильный код 1-й раз .. теперь это правильно .. поблагодарить у всех ..