listbox colonne invisible

bonjour,

voilà le pb :

j'ai une listbox qui affiche un certain nombre de renseignement, on va prendre ici com exemple :
nom, prenom, tel (tout ça étant relié à une base)

le principe de l'exo consiste à cliquer sur différentes lignes de cette listbox et suivant la ligne ça me renseigne dans des champs de nouveaux renseignement propre à la ligne ex (age de la personne...)

mais voilà

j'aimerai faire de cette listbox une listbox à plusieurs colonnes j'ai cru lire que ct possible mem si je n'ai pas cette option de plusieurs colonne (je suis sous vb6).
J'ai cru lire qu'il fallait ajouté la librairie Microsoft forms object 2.0 mé je ne lé po dans la liste de mes références... :(
En fait je n'ai pas la propriété colomncount pour une listbox qui devré je crois me permettre de dire le nombre de colonne....

sinon le résultat en gros que ça devrait faire
ex :
ListBox1.List(i, 0) = enreg!nom_clt
ListBox1.List(i, 1) = enreg!prenom_clt
ListBox1.List(i, 2) = enreg!tel_clt
ListBox1.List(i, 3) = enreg!key_clt    (à rendre invisible)

avec i pour ligne

donc l'autre problème est de rendre invisible une colonne de cette listbox à plusieurs colonnes car dans une colonne je compte lui mettre une clé primaire.... et c celle ci qui me permettra de fournir les nouveaux renseignements (age etc...) donc elle est à rendre invisible...mé je c po comment faire... si bien sur c possible...

merci d'avance...

et si c po clair je peux me réexpliquer bien sur :)

form2 est à éviter. utilises les tabulations.

Private Declare Function SendMessage Lib "user32" Alias _
      "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, _
      ByVal wParam As Long, lParam As Any) As Long

Private Const LB_SETTABSTOPS = &H192

Private mavArray() As Variant

Private Sub Form_Load()
  Dim alTabs(2) As Long
  alTabs(1) = -65
  alTabs(2) = 65
  SendMessage List1.hwnd, LB_SETTABSTOPS, 0&, 0&
  SendMessage List1.hwnd, LB_SETTABSTOPS, UBound(alTabs), alTabs(1)
End Sub


Daniel