Ошибка выхода за пределы массива при обращении к нескольким Panel

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Panel() As Panel = {Panel1, Panel2, Panel3}
        For i = 1 To 3
            Panel(i).Visible = True
        Next i
    End Sub
End Class

   Dim Panel(0 To 3) As Panel
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        For i = 0 To 3
            Me.Controls("Panel" & i).Visible = True
        Next i

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Panel() As Panel = {Panel1, Panel2, Panel3}
        For i = 0 To 2
            Panel(i).Visible = True
        Next i
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Panel() As Panel = {Panel1, Panel2, Panel3}
        Static a = 0
For i = 0 To Panel.Length
            If i = a Then
Panel(i).Visible = True
Else
Panel(i).Visible = False
End If
        Next i
a+=1
If a = Panel.Length Then a = 0
    End Sub
End Class

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Panel() As Panel = {Panel1, Panel2, Panel3}
        Static a = 0
For i = 0 To Panel.Length-1
            If i = a Then
Panel(i).Visible = True
Else
Panel(i).Visible = False
End If
        Next i
a+=1
If a = Panel.Length Then a = 0
    End Sub
End Class

Dim Panel() As Panel = {Panel1, Panel2, Panel3}
        Static index As Integer = 0
        For i = 0 To Panel.Length - 1
            If i = index Then Panel(i).Visible = True Else Panel(i).Visible = False
        Next
        index += 1 : If index = Panel.Length Then index = 0

Private _rand As New Random
    Private _oldInt As Integer = -1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Panel() As Panel = {Panel1, Panel2, Panel3, Panel4, Panel5, Panel6, Panel7, Panel8, Panel9, Panel10}
        Dim _int As Integer = 0
        Do
            _int = _rand.Next(Panel.Length)
            If Not _oldInt = _int Then
                Exit Do
            End If
        Loop
        Dim selectPanel = Panel(_int)
        selectPanel.Visible = True
        For Each p In Panel
            If Not p.Equals(selectPanel) Then p.Visible = False
        Next
        _oldInt = _int
    End Sub

    Private _rand As New Random
    Private OldShowPanels() As Integer = {}
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Panel() As Panel = {Panel1, Panel2, Panel3, Panel4, Panel5, Panel6, Panel7, Panel8, Panel9, Panel10}
        Dim _int As Integer = -1
        If Not OldShowPanels.Length = Panel.Length Then
            Do
                _int = _rand.Next(Panel.Length)
                If Not OldShowPanels.Contains(_int) Then
                    ReDim Preserve OldShowPanels(OldShowPanels.Length)
                    OldShowPanels(OldShowPanels.Length - 1) = _int
                    Exit Do
                End If
            Loop
            Dim selectPanel = Panel(_int)
            selectPanel.Visible = True
            For Each p In Panel
                If Not p.Equals(selectPanel) Then p.Visible = False
            Next
        End If
    End Sub