Delegate Sub SetListCallback(ByVal [item] As String)
 
    Private Sub SetItems(ByVal [item] As String)
 
        If Me.InvokeRequired Then
            Dim d As New SetListCallback(AddressOf SetItems)
            Me.Invoke(d, New Object() {[item]})
        Else
            Dim args() As String = Split(item, "%%")
            Dim myItem As New ListViewItem(args(0))
            myItem.SubItems.Add(args(1))
            myItem.SubItems.Add(args(2))
            myItem.SubItems.Add(args(3))
            Me.ListView1.Items.Add(myItem)
        End If
    End Sub