Private Sub Text(...)
        Dim myLvi as New ListViewItem
        ' ...
        If theForm.InvokeRequired Then
            theForm.Invoke(CType(AddressOf theForm.AddLVI, _
              Form1.AddLVIHandler), New Object() {mylvi})
        End If
    End Sub

    Public Delegate Sub AddLVIHandler(ByVal lvi As ListViewItem)
 
    Private Sub AddLVI(ByVal lvi As ListViewItem)
        lv.Items.Add(lvi)
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist