While kromosom > 0
            hari = 14

            While hari > 0
                shift1 = 2
                dgv.Rows.Add()
                While shift1 >= 0
                    listOrg = nrand.ToString

                    org = sql
                    While org > 0
                        counter1 = listOrg.Length
                        counter2 = 0
                        While counter1 > 0
                            If counter2 = 0 Then
                                nrand = rand1.Next(1, 7)
                            End If
                            If (listOrg.Chars(counter1 - 1).ToString <> nrand.ToString) Then

                                counter1 -= 1
                                counter2 = 1
                            Else
                                counter2 = 0
                                counter1 = listOrg.Length
                            End If
                        End While
                        listOrg = listOrg + nrand.ToString
                        org -= 1


                    End While
                    dgv.Item(shift1, dgv.RowCount - 1).Value = listOrg
                    shift1 -= 1
                End While
                hari -= 1
            End While
            kromosom -= 1
            dgv.Rows.Add()
            dgv.Item(0, dgv.RowCount - 1).Value = "-----------------------------"
            dgv.Item(1, dgv.RowCount - 1).Value = "----------" + (kromosom + 1).ToString + "----------"
            dgv.Item(2, dgv.RowCount - 1).Value = "-----------------------------"

        End While