Цикл не срабатывает второй раз

 
Dim i1 As Integer = 0
Dim d As Integer
               Try
            For Krasn = 1 To DataGridView1.RowCount.ToString - 0
                 If dt.Rows(i1).Item(6) = "1" Then
 
                     Dim pan As New Panel With {.Top = d, .Left = 1, .Size = New Size(296, 59), .BackColor = Color.Gray,
                .BorderStyle = BorderStyle.None, .TabStop = False, .Location = New Point(0, 0 + d)}
                   
                 Dim lab1 As New Label With {.Name = i1, .Text = dt.Rows(i1).Item(1), .Size = New Size(291, 13), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Red, .Location = New Point(3, 2 + d), .ForeColor = Color.Black}
                    
                 Dim TXT As New TextBox With {.Text = dt.Rows(i1).Item(0), .Size = New Size(293, 40), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Tomato, .Multiline = True, .BorderStyle = BorderStyle.FixedSingle,
                .Location = New Point(2, 17 + d), .ContextMenuStrip = FZad.ContextMenuStrip1, .ReadOnly = True}
                    
                    AddHandler lab1.Click, AddressOf FZad.lab1_Click
                    AddHandler TXT.Click, AddressOf FZad.TXT_Click
                   
                     d = d + 61
                  
                    FZad.Controls.Add(pan)
                    FZad.Controls.Add(lab1)
                    FZad.Controls.Add(TXT)
                 
                   End If
                
                   i1 = i1 + 1
 
            Next

For Krasn = 1 To DataGridView1.RowCount.ToString - 0

For Krasn = 0 To DataGridView1.RowCount-1

For Krasn = 0 To DataGridView1.RowCount-1

            For Krasn = 0 To dt.Rows.Count - 1
                'Сначала добавляем напоминалки с приоритетом 1
                If i1 > Krasn Then Exit For
                If dt.Rows(i1).Item(6) = "1" Then

            For Zelen = 0 To dt.Rows.Count - 1
                If i2 > Zelen Then Exit For
                If dt.Rows(i2).Item(6) = "2" Then

            For Sgelt = 0 To dt.Rows.Count - 1
                If i3 > Sgelt Then Exit For
                If dt.Rows(i3).Item(6) = "3" Then

 If i2 > Zelen Then Exit For

If i2 > Zelen Then Exit For

For Sgelt = 0 To dt.Rows.Count - 1

'Загружаем напоминания в форму
    'Загружаем напоминания в форму
    Public Sub ZAP()
        'Количество шагов в низ новых Панели, Лейблов, Текстбоксов
        Dim d As Integer
        'Запускаем поочередно напоминалки, Переменная i1 создана в модуле
        'Переменная строки
        Try
            For Krasn = 0 To FZad.DataGridView1.RowCount - 1
                'Сначала добавляем напоминалки с приоритетом 1
                If dt.Rows(Krasn).Item(6) = "1" Then
                    'Создаем панели в цикле
                    Dim pan As New Panel With {.Top = d, .Left = 1, .Size = New Size(296, 69), .BackColor = Color.Gray,
                .BorderStyle = BorderStyle.None, .TabStop = False, .Location = New Point(0, 0 + d)}
                    'Создаем лейблы в цикле
                    Dim lab1 As New Label With {.Name = Krasn, .Text = dt.Rows(Krasn).Item(1), .Size = New Size(291, 13), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Red, .Location = New Point(3, 2 + d), .ForeColor = Color.Black}
                    Dim TXT As New TextBox With {.Text = dt.Rows(Krasn).Item(0), .Size = New Size(293, 50), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Tomato, .Multiline = True, .BorderStyle = BorderStyle.FixedSingle,
                .Location = New Point(2, 17 + d), .ContextMenuStrip = FZad.ContextMenuStrip1, .ReadOnly = True,
                .Font = New Font("Book Antiqua", 10)}
                    'Задаем данные клика нового лейбла  
                    AddHandler lab1.Click, AddressOf FZad.lab1_Click
                    AddHandler TXT.Click, AddressOf FZad.TXT_Click
                    'Задаем размер шага в низ 
                    d = d + 71
                    ' Загружаем на форму
                    FZad.Controls.Add(pan)
                    FZad.Controls.Add(lab1)
                    FZad.Controls.Add(TXT)
                    'Выводим лейблы на передний план
                    lab1.BringToFront()
                    TXT.BringToFront()
                End If
                'i1 = i1 + 1
 
            Next
            For Zelen = 0 To FZad.DataGridView1.RowCount - 1
                If dt.Rows(Zelen).Item(6) = "2" Then
                    'Создаем панели в цикле
                    Dim pan As New Panel With {.Top = d, .Left = 1, .Size = New Size(296, 69), .BackColor = Color.Gray,
                .BorderStyle = BorderStyle.None, .TabStop = False, .Location = New Point(0, 0 + d)}
                    'Создаем лейблы в цикле
                    Dim lab1 As New Label With {.Text = dt.Rows(Zelen).Item(1), .Size = New Size(292, 13), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Green, .Location = New Point(2, 2 + d)}
                    Dim TXT As New TextBox With {.Text = dt.Rows(Zelen).Item(0), .Size = New Size(294, 50), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Silver, .Multiline = True, .BorderStyle = BorderStyle.FixedSingle,
                .Location = New Point(1, 17 + d), .ContextMenuStrip = FZad.ContextMenuStrip1, .ReadOnly = True,
                .Font = New Font("Book Antiqua", 10)}
                    'Задаем данные клика нового лейбла
                    AddHandler lab1.Click, AddressOf FZad.lab1_Click
                    AddHandler TXT.Click, AddressOf FZad.lab1_Click
                    'Задаем размер шага в низ 
                    d = d + 71
                    ' Загружаем на форму
                    FZad.Controls.Add(pan)
                    FZad.Controls.Add(lab1)
                    FZad.Controls.Add(TXT)
                    'Выводим лейблы на передний план
                    lab1.BringToFront()
                    TXT.BringToFront()
                End If
                'i2 = i2 + 1
 
            Next
            'В конце добавляем напоминалки с приоритетом 3
            For Sgelt = 0 To FZad.DataGridView1.RowCount - 1
                If dt.Rows(Sgelt).Item(6) = "3" Then
                    'Создаем панели в цикле
                    Dim pan As New Panel With {.Top = d, .Left = 1, .Size = New Size(296, 69), .BackColor = Color.Gray,
                .BorderStyle = BorderStyle.None, .TabStop = False, .Location = New Point(0, 0 + d)}
                    'Создаем лейблы в цикле
                    Dim lab1 As New Label With {.Text = dt.Rows(Sgelt).Item(1), .Size = New Size(292, 13), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Yellow, .Location = New Point(2, 2 + d)}
                    Dim TXT As New TextBox With {.Text = dt.Rows(Sgelt).Item(0), .Size = New Size(294, 50), .Visible = True,
                .Top = d, .Left = 1, .BackColor = Color.Silver, .Multiline = True, .BorderStyle = BorderStyle.FixedSingle,
                .Location = New Point(1, 17 + d), .ContextMenuStrip = FZad.ContextMenuStrip1, .ReadOnly = True,
                .Font = New Font("Book Antiqua", 10)}
                    'Задаем данные клика нового лейбла
                    AddHandler lab1.Click, AddressOf FZad.lab1_Click
                    AddHandler TXT.Click, AddressOf FZad.lab1_Click
                    'Задаем размер шага в низ 
                    d = d + 71
                    ' Загружаем на форму
                    FZad.Controls.Add(pan)
                    FZad.Controls.Add(lab1)
                    FZad.Controls.Add(TXT)
                    'Выводим лейблы на передний план
                    lab1.BringToFront()
                    TXT.BringToFront()
                End If
                'i3 = i3 + 1
            Next
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub

If dt.Rows(Zelen).Item(6) = "2" Then

i3 = i3 + 1