如何在VB.Net中从另一个线程更新数据网格视图单元格

Delegate Sub UpdateDataGridViewCellDelegate(ByVal value As Object, ByVal rowIndex As Integer, ByVal columnIndex As Integer)

Private Sub UpdateDataGridViewCell(ByVal value As Object, ByVal rowIndex As Integer, ByVal columnIndex As Integer)
    If DataGridView1.InvokeRequired Then
        Dim d As New UpdateDataGridViewCellDelegate(AddressOf UpdateDataGridViewCell)
        Me.Invoke(d, New Object() {value, rowIndex, columnIndex})
    Else
        DataGridView1.Rows(rowIndex).Cells(columnIndex).Value = value
    End If
End Sub

Private Sub AnotherThread()
    ' 模拟耗时操作
    System.Threading.Thread.Sleep(1000)

    ' 更新数据网格视图单元格的值
    UpdateDataGridViewCell("New Value", 0, 0)
End Sub