spécifier une procédure évenemetielle dans un label crée dynamiquement

[Mut]

Bonsoir,

J'ai un formulaire dans lequel je crée des labels automatiquement par la méthode createcontrol.

Ce que je souhaiterais faire, c'est d'appliquer un bout de code sur l'évènement "onmousemove". J'arrive à m'en approcher avec ce code :

Code :

1
2
 
ztJour.OnMouseMove = "[Procédure événementielle]"

Mon problème est de spécifier le code de la procédure évenementielle mais dans l'aide ceci n'est pas indiqué....car la je ne vois pas trop le but d'inscrire "[Procédure événementielle]" si on ne peut rien spécifier par la suite.

Merci

[Mut]

Bon j'ai légèrement avancé sur mon problème...

Voici le code :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
        Set VBProj = Application.VBE.VBProjects("Database2")
        Set VBComp = VBProj.VBComponents("Planning1")
        Set CodeMod = VBComp.CodeModule
 
        With CodeMod
            LineNum = .CreateEventProc("Open", "Form")
            LineNum = LineNum + 1
            .InsertLines LineNum, "    MsgBox " & DQUOTE & "Hello World" & DQUOTE
        End With
 
 
'Le texte de la macro
        Code = "Private Sub " & ztJour.Name & "_DblClick(Cancel As Integer)" & vbCrLf
    Code = Code & "Call codelabel" & vbCrLf
    Code = Code & "End Sub"

Mon problème se situe ici : Set VBComp = VBProj.VBComponents("Planning1")

Je n'arrive pas à spécifier le bon "vbcomponents". Pourtant, "planning1" est bien crée...mais je n'arrive pas à créer le code dedans. J'arrive seulement à le créer dans un module quelquonque par exemple

Petite précision, le code ci-dessus est executé à partir d'un autre formulaire et non de "planning1"
Si quelqu'un à une piste....

Merci