Multiple event Args in VB 2005

[cmdolcet69]

So I have two handlers:

   AddHandler dataBackgroundWorker.DoWork, AddressOf DoDualDSIWorkCOM1
   AddHandler dataBackgroundWorker2.DoWork, AddressOf DoDualDSIWorkCOM1
   dataBackgroundWorker.RunWorkerAsync(New Object() {currentSerial})
   dataBackgroundWorker2.RunWorkerAsync(New Object() {currentSerial2})

when I look in the sub DoDualDSIWorkCOM1 I only see the first COM Port being passed in the event args

Private Sub DoDualDSIWorkCOM1(ByVal sender As Object, ByVal e As DoWorkEventArgs)
        Try
            Dim args() As Object = e.Argument
 
            Dim intloop As Integer
            CType(args(0), IO.Ports.SerialPort).DiscardInBuffer()
            muxClass.GetDualDSIInputCOM1(CType(args(0), IO.Ports.SerialPort))
        Catch ex As Exception
            tListener.AddMethodError(ex)
        End Try
    End Sub
 

How can I get the 2nd COM Port passed in so that when I go to the GetDualDSIInputCOM1 routine I can see both open COM port?

[Teme64]

Pass both ports to same worker:

dataBackgroundWorker.RunWorkerAsync(New Object() {currentSerial, currentSerial2})

Private Sub DoDualDSIWorkCOM1(ByVal sender As Object, ByVal e As DoWorkEventArgs)
  Try
    Dim Ports() As IO.Ports.SerialPort = CType(e.Argument, IO.Ports.SerialPort())
    Dim intloop As Integer
 
    For intloop = 0 to Ports.GetUpperBound(0)
      Ports(intloop).DiscardInBuffer()
      muxClass.GetDualDSIInputCOM1(Ports(intloop))
    Next intloop
  Catch ex As Exception
    tListener.AddMethodError(ex)
  End Try
End Sub

Teme64 @ windevblog.blogspot.com