//global Deklariert
Private Delegate Sub AddItemDelegate(ByVal suchstr As String)
 
//Im Form_Load
LV1.BeginUpdate() //stimmt das hier so mit dem BiginUpdate? oder muss das wo _
  anderst hin?
 
Dim d As New AddItemDelegate(AddressOf getitems)
d.BeginInvoke("", AddressOf EndGetItems, Nothing)
 
LV1.EndUpdate()
 
//EndGetItems für EndInvoke
 
Public Sub EndGetItems(ByVal ar As IAsyncResult)
 
    Dim objAr As Runtime.Remoting.Messaging.AsyncResult
    objAr = CType(ar, Runtime.Remoting.Messaging.AsyncResult)
    Dim d As AddItemDelegate
    d = CType(objAr.AsyncDelegate, AddItemDelegate)
    d.EndInvoke(ar)
End Sub

Public Sub getitems(ByVal suchstr As String)
 
    LV1.Items.Clear()
 
    Dim Files As String() = Directory.GetFiles(conn_string & "\", "*" & suchstr _
      & "*")
    For Each File As String In Files
        Dim flinfo As New FileInfo(File)
        Dim Item As LVItem = New LVItem(System.IO.Path.GetFileName(File), _
          flinfo.Length)
 
        With LV1.Items.Add(Item.Text)
            .SubItems.Add(Item.getFileSize())
        End With
 
    Next
 
End Sub

Auf der Suche nach einem Hilfreichen Tutorial? Dann schau vorbei, auf http://tuts4you.de