Looping through datagridview with backgroundworker in VB.NET

Imports System.ComponentModel
Imports System.Net
Imports System.Net.NetworkInformation
Imports System.Threading

Public Class Form17

    Dim  Ping As New Ping 
    Dim i As Integer
    Dim reply(i) As PingReply

    Private Sub Form17_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'IPSDataDataSet.IPsConnectionStatus' table. You can move, or remove it, as needed.
        Me.IPsConnectionStatusTableAdapter.Fill(Me.IPSDataDataSet.IPsConnectionStatus)

        BackgroundWorker1.RunWorkerAsync()


    End Sub

    Private Sub IPsConnectionStatusBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles IPsConnectionStatusBindingNavigatorSaveItem.Click
        Me.Validate()
        Me.IPsConnectionStatusBindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.IPSDataDataSet)

    End Sub


    Private Sub BackgroundWorker1_DoWork(sender As System.Object, e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork


        Thread.Sleep(1000)

        Me.IPsConnectionStatusDataGridView.DataSource = Me.IPsConnectionStatusBindingSource

        Try
            =

            For Me.i = 0 To IPsConnectionStatusDataGridView.RowCount - 1 'Giving an error --> System.IndexOutOfRangeException was unhandled by user code & HResult = -2146233080 & Message=Index was outside the bounds of the array.



                '==================================

                reply(i) = Ping.Send(IPsConnectionStatusDataGridView(1, i).Value, 1000)
                IPsConnectionStatusDataGridView(2, i).Value = reply(i).Status.ToString
                IPsConnectionStatusDataGridView(3, i).Value = reply(i).RoundtripTime
                IPsConnectionStatusDataGridView(6, i).Value = reply(i).Address.ToString() 'Address


            Next



        Catch ex As Exception

            MsgBox(ex.Message)
            If ex.InnerException IsNot Nothing Then
                MsgBox(ex.InnerException)
            End If

        End Try
    End Sub


    Private Sub BackgroundWorker1_RunWorkerCompleted(sender As Object, e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BackgroundWorker1.RunWorkerCompleted

        Try
            

            BackgroundWorker1.RunWorkerAsync()

            '========================================================
            If IPsConnectionStatusDataGridView(2, i).Value = "Success" Then
                IPsConnectionStatusDataGridView(4, i).Value = Now '  'Last Succeed On

            End If

            '================================================================
            If IPsConnectionStatusDataGridView(2, i).Value = "TimedOut" Then
                IPsConnectionStatusDataGridView(5, i).Value = Now '  'Last Failed On

            End If

        Catch ex As Exception

            MsgBox(ex.Message)
            If ex.InnerException IsNot Nothing Then
                MsgBox(ex.InnerException)
            End If


        End Try
    End Sub

    

End Class