Private Delegate Sub LogDelegate(ByVal text As String)
 
Private Sub Log(ByVal text As String)
  If ListView1.IsInvokeRequeiered() Then
    ListView1.Invoke(New LogDelegate(AddressOf Log), text)
  Else
    ListView1.Items.Add(text)
  End If
End Sub

Ralf