Private Delegate Function testdelegate() As _
        System.Windows.Forms.ListView.ListViewItemCollection
 
      Private Sub DeleteProcess_DoWork(ByVal sender As System.Object, ByVal e _
        As System.ComponentModel.DoWorkEventArgs) Handles DeleteProcess.DoWork
         Dim items As System.Windows.Forms.ListView.ListViewItemCollection
         items = CType(pListViewControl.Invoke(New testdelegate(AddressOf _
           test)), System.Windows.Forms.ListView.ListViewItemCollection)
 
         For Each item As System.Windows.Forms.ListViewItem In items
            ' ...
         Next
      End Sub
 
      Private Function test() As _
        System.Windows.Forms.ListView.ListViewItemCollection
         Return pListViewControl.Items
      End Function