Tres simple mais tres urgent !!!!

bonjour, je voudrai pouvoir me servir d'une listview mais je ne sais pas comment y integrer des données, je veux rapidement la syntaxe pour pouvoir y ajouter des données,

je croyais que c'était le meme principe qu'une listbox (ADDITEMS) mais ce n'est pas ca !!!!
merci d'avance !
***Zmia***mailto:

SALUT voici un pot-pourri

'PROPRIETES
VIEW-3 IvwReport
FullRowSelect-Surbrillance de la ligne

'-Titre de la 3ème colonnes
View.ColumnHeaders(3).Text = ""


'DECLARATION
Dim lView As ListItem

'Ajouter nouvelle ligne au listView1
Set lView = ListView1.ListItems.Add()

'Ajouter le texte dans la nouvelle ligne
lView.Text = DossierDepart & sTemp

'-Effacer une entrée
LstView.ListItems.Remove (Index)

'-Police en Bleue
lView.ForeColor = vbBlue

'-Police en gras
lView.Bold = True

'-Effacer le contenu de la liste
ListView1.ListItems.Clear

'-Selection de la ligne
Nom_Archive = ListView1.SelectedItem.Text

'SELECTION DE LIGNE ENTIERE
FullRowSelect=True

'AJOUTER DES INFORMATIONS DANS LA COLONNE DE GAUCHE(la principale)
lView.Text = "Chaîne à afficher"
lView.SubItems(1) = "Chaîne à afficher" '2ème colonnes
lView.SubItems(2) = "Chaîne à afficher" '3ème colonnes

'LECTURE DE
'-Lecture 1ère ligne,1ère colonne
ligne = ListView1.ListItems(1)
'-Lecture 1ère ligne,2ème colonne
ligne = ligne & ListView1.ListItems(1).SubItems(1)
'-Lecture 1ère ligne,3ème colonne
ligne = ligne & ListView1.ListItems(1).SubItems(2)

'ITERATIONS TOUTES LES ENTREES SELECTIONNEES
'PROPRIETE:Multiselect sur True
'Itération au travers des entrées du ListWiev
For X = 1 To ListView1.ListItems.Count

'Sélection existante
If ListView1.ListItems(X).Selected = True Then

'Ajouter à la TextBox
Text1=ListView1.ListItems(X).Text & ListView1.ListItems(X).SubItems(1) & ListView1.ListItems(X).SubItems(2) + vbCrLf


End If
Next X

'-CREATION D'UNE COLONNE EN EXECUTION
'-Mettre la proprièté view sur "3-IvwReport"

View.ColumnHeaders.Add (1), , "ESSAIS01"

'-SUPPRESSION DE TOUTES LES COLONNES
View.ColumnHeaders.Clear

A++ BFR