Boujour à tous

Je travaille dans VB6.
Lorsque je place le code suivant dans une Sub Command1_Click()
tous ce passe bien (avec un point d'arret pour verifier!).

Mais le même code dans une Sub Combo1_Click() me declanche une erreur
du type 'impossible dans ce context'.

Je n'ai rien trouvé a ce sujet dans le forum.

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Dim var As Boolean
Private Sub Combo1_Click()
    Me.Controls.Add "VB.Frame", "frame1"
       With Me.Controls("frame1")
            .ForeColor = &HFFFF&
            .BackColor = &H40&
            .BorderStyle = 1
            .Top = 680
            .Left = 280
            .Width = 11500
            .Height = 3500
            .Visible = True
        End With
    var = True
    If var = True Then
        Me.Controls.Remove "frame1"  'declanchement d'une erreur'
    End If
End Sub
Si quelqu'un a une idée.

Merci d'avance.