My program crashes after running a do while .. Loop block

See more:

VB15

I have a datagridview in form2 . I put in 10 columns with columns width
programmatically. Data are copied from Datagridview contained in form1 to datagridview in form2.When I try to cumulate the total width of the 10 columns in form2 , I use the Do while ...Loop block. Running through the code in the block goes normally, but the program stops working instead of continuing to run the other code after the Do While...Loop . usually the same code worked correctly . I don't understand the reason of that strange behavior. It is as if the program attempt to go beyond the tenth column and stops working sending the message:index was out of range, must be non negative and less than the size of the collection.Parameters name: index .If I change something in the Do while loop block as putting for example Do While i < 5 ....loop , when running ,the program reaches 4 and tries to go beyond to 5 and stops working with the message index was out of range....... Why the program is attempting go beyond the limit indicated (limit <5 or limit <=datagridview1.rowcount-1 in my code ) ? I need help my dear friends

What I have tried:

'To add columns and columns widths to Datagridview1 OF FORM2
 Private Sub form2_Load(sender As Object, e As EventArgs) Handles Me.Load
       
            DataGridView1.Columns.Add("cpteprinci", "No Compte")
            DataGridView1.Columns.Add("journgencd", "Intitule")
            DataGridView1.Columns.Add("TotalDb", "Ouverture Debits")
            DataGridView1.Columns.Add("Totalcd", "Ouverture Credits")
            DataGridView1.Columns.Add("column5", "Mouvements Debiteurs")
            DataGridView1.Columns.Add("column6", "Mouvements Crediteurs")
            DataGridView1.Columns.Add("column7", "Total Debits")
            DataGridView1.Columns.Add("column8", "Total Credits")
            DataGridView1.Columns.Add("column9", "Soldes Debiteurs")
            DataGridView1.Columns.Add("column10", "Soldes Crediteurs")


            DataGridView1.Columns(0).Width = 60
            DataGridView1.Columns(1).Width = 140
            DataGridView1.Columns(2).Width = 75
            DataGridView1.Columns(3).Width = 75
            DataGridView1.Columns(4).Width = 75
            DataGridView1.Columns(5).Width = 75
            DataGridView1.Columns(6).Width = 75
            DataGridView1.Columns(7).Width = 75
            DataGridView1.Columns(8).Width = 75
            DataGridView1.Columns(9).Width = 75

'To transfer data from form1 to form2

Dim n As Integer = 0
        For Each row As DataGridViewRow In form1.DataGridView1.Rows
            If (Form1.DataGridView1.Rows.Count <> (n + 1)) Then
                DataGridView1.Rows.Add()
                For p As Integer = 0 To Form1.DataGridView1.ColumnCount - 1
                    DataGridView1.Rows(n).Cells(p).Value = row.Cells(p).Value
                Next
            End If

            n = n + 1
        Next
end sub

'To calculate the cumulative of all columns
 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
 Dim wdt As Integer = 0
dim arrcol as new arraylist
dim ik as integer=25


dim i as integer=0


Do While i <=  DataGridView1.ColumnCount - 1
                        wdt = DataGridView1.Columns(i).width 
                     
                         ik =ik+ wdt
                        arrcol.Add(ik)
                        i = i+ 1
                        
 
 loop