Passaggio di parametri Cross Thread

    Private Sub funzione(ByVal a As String)
        Console.WriteLine(a)
    End Sub
    Private Sub Button1_Click() Handles Button1.Click
        Dim proc As New Thread(AddressOf funzione)
        proc.Start("ciao")
    End Sub

    Private Sub funzione(ByVal a As String, ByVal b As String)
        Console.WriteLine(a & b)
    End Sub
    Private Sub Button1_Click() Handles Button1.Click
        Dim proc As New Thread(AddressOf funzione)
        proc.Start("ciao", "riciao")
    End Sub

Imports System.Threading

Public Class Form1

    Private Sub Button1_Click() Handles Button1.Click
        Dim my_function1 As New my_function
        my_function1.param1 = "qui "
        my_function1.param2 = "quo "
        my_function1.param3 = "qua"
        Dim proc As New Thread(AddressOf my_function1.start)
        proc.Start()
    End Sub

    Public Class my_function
        Public param1 As String
        Public param2 As String
        Public param3 As String

        Public Sub start()
            funzione(param1, param2, param3)
        End Sub

        Private Sub funzione(ByVal a As String, ByVal b As String, ByVal c As String)
            Console.WriteLine(a & b & c)
        End Sub
    End Class

End Class

    Private Sub Button1_Click() Handles Button1.Click
        Dim a() As String = New String() {"qui", "quo", "qua"}
        Dim proc As New Thread(AddressOf funzione)
        proc.Start(a)
    End Sub

    Private Sub funzione(ByVal param() As String)
        For i = 0 To param.Count - 1
            Console.WriteLine(param(i))
        Next
    End Sub

 Il codice sorgente non è stato renderizzato qui
perchè non c'è sufficiente spazio.
Clicca qui per visualizzarlo in una nuova finestra

public void MyDelegate(object  _obj)
{
      string[] _dati = (string[]) _obj)
     foreach(string message in _dati)
      {
          Console.WriteLIne(message);
     }
}

private void button1_Click(object sender, EventArgs e)
{
      ParametrizedThreadStart  pStart = new ParametrizedThreadStart(MyDelegate)
      string _data = new string[] {"Ciao", "mondo", "crudele"};
     Thread  tr = new Thread(pStart);
      tr.Start(_data);
}