Créer des contrôles dynamiquement qui se comporte comme normaux

Réponse acceptée !
- le composant doit être coché pour avoir la bibliothéque
- dans projet.option faut décocher:
   Remove information about unused ActiveX contyrols

- déclaration WithEvents uniquement sur la Forme
Public WithEvents obj1 As mscomctllib.ListView

 Set obj1 = Controls.Add("mscomctllib.ListViewCtrl.2", "Liste")


- le Set peut être fait dans le module:
Public Sub Creation()
    Set Form1.obj1 = Form1.Controls.Add("mscomctllib.ListViewCtrl.2", "Liste")
    Form1.obj1.Visible = True
End Sub

Daniel

Réponse acceptée !
je l'ai obtenu par un message d'erreur qui apparait:
   Run-Time error '739'
   Cannot add control "mscomctllib.treeview" . . . .
   the ProgID for this control is "MSComctlLib.TreeCtrl.2"

Public WithEvents obj1 As MSComctlLib.TreeView

Set obj1 = Controls.Add("mscomctllib.treectrl.2", "Arbre")

en fait sans le ".2" ça passe aussi

Daniel

Réponse acceptée !
Salut

pour la creation des controles dynaques tel que des User control
tu peux utiliser la méthodes des index

moi, je les manipules comme cela.

sur la form
le user(0) est invisible
et apres j'appele la methode
   F1.ctl1(0).Top = 0
    While Not rsADO.EOF
        Load F1.ctl1(i)
        F1.ctl1(i).Top = F1.ctl1(i - 1).Top + F1.ctl1(i - 1).Height
        F1.ctl1(i).Style = "Supprimer"
        F1.ctl1(i).nom = rsADO!champ1 * -1
        F1.ctl1(i).property1 = rsADO![champ2] * -1
        F1.ctl1(i).Visible = True
        i = i + 1
        rsADO.MoveNext
    Wend

F1 est le nom de la form car tout la gestion des controles avait été dans ce projet
déporté dans des modules. car les une bonne partie des controles etait present sur une seule form (c'etait la demande) la mise en module et encore mieux en class permet de travailler a plusieurs sur une grosse forme ;-)

j'ai renommer les champs c'est pour cela que c'est moins parlant