Visual Basic

DataGridView1.DataSource = DataSet1.Tables("TableName")

So, if all of your work is being done in these worker threads, then your main application just becomes a thread manager. Right? (lets take that as true)

2) Each thread should throw an event which represents "WorkDone"; the thread manager will
listen for this event and update the corresponding array slot.

Public Event IamDone(ByVal sender As Object, ByVal IP As String)

RaiseEvent IamDone(Me, "111")

AddHandler myworkerthreadclass.IamDone, Addressof myworkerthreadclass.IamDone

Public Event IamDone(ByVal sender As Object, ByVal IP As String)

RaiseEvent IamDone(Me, "111")

AddHandler myworkerthreadclass.IamDone, Addressof myworkerthreadclass.IamDone

svanwass wrote:

that doesn't work

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim passing(0, 3) As String
        passing(0, 0) = "10.1.1.1"
        passing(0, 1) = "10.1.1.2"
        passing(0, 2) = "10.1.1.3"
        passing(0, 3) = "10.1.1.4"
        Dim myworker As New Foo(passing)
    End Sub

   Private Sub IHeardThat() Handles Foo.IamDone
          'this does NOT work
    End Sub
End Class

Imports System.ComponentModel
Imports System.IO
Imports System.Threading
Public Class Foo

    Public WithEvents backgroundWorker1 As System.ComponentModel.BackgroundWorker
    Public Event IamDone(ByVal sender As Object, ByVal IP As String)

    Dim devicelist(,) As String
    Dim txtFile
    Public Sub New(ByVal Value As String(,))
        devicelist = Value
        backgroundWorker1 = New BackgroundWorker

        backgroundWorker1.WorkerReportsProgress = True
        backgroundWorker1.RunWorkerAsync(devicelist)
    End Sub
    Private Sub backgroundWorker1_DoWork(ByVal sender As Object, ByVal e As DoWorkEventArgs) Handles backgroundWorker1.DoWork

        ' Get the BackgroundWorker object that raised this event.
        Dim worker As BackgroundWorker = CType(sender, BackgroundWorker)
        Dim myargs As String(,) = e.Argument

    End Sub
    Private Sub backgroundWorker1_RunWorkerCompleted(ByVal sender As Object, ByVal e As RunWorkerCompletedEventArgs) Handles backgroundWorker1.RunWorkerCompleted

            RaiseEvent IamDone(Me, "Done")
        End If
    End Sub 
   
End Class