Private Sub mBGW_DoWork(sender As Object, e As DoWorkEventArgs)
        Dim bgw = CType(sender, BackgroundWorker)
        Dim arguments(2) As Object
        arguments(0) = "1"
        arguments(1) = 2
        arguments(2) = 3.3
        bgw.ReportProgress(1, arguments)
    End Sub
 
    Private Sub mBGW_ProgressChanged(sender As Object, e As _
      ProgressChangedEventArgs)
        Dim arguments = CType(e.UserState, Object())
        For Each arg In arguments
            Debug.WriteLine(arg.ToString & " - " & arg.GetType.ToString)
        Next
    End Sub