스레드에서 invoke

'sub

  Private Sub UpdateStatus(ByVal s As String)
        Me.TextBox1.Text = s
    End Sub

 'Delegate

Private Delegate Sub UpdateDelegate(ByVal s As String)

'Delegate = sub

Dim del As UpdateDelegate = AddressOf UpdateStatus

 

 

 

'사용

         Me.Invoke(del, "텍스트박스.text")

'이런식으로도 사용가능

 Me.Invoke(New del(AddressOf update_listview), New Object() {int_maxitem, name, address})

'델리게이트선언

 Private Delegate Sub del(i As Integer, s1 As String, s2 As String)
 Private Sub update_listview(i As Integer, s1 As String, s2 As String)
  listView1.BeginUpdate()
  listView1.Items.Add(Convert.ToString(i))
  listView1.Items(i).SubItems.Add(s1)
  listView1.Items(i).SubItems.Add(s2)
  listView1.EndUpdate()

 End Sub