Hvorfor virker frames enable/disable ikke mere ???

Hej Alle.

Jeg bruger flg. kode til at enable/disable frames med via en Check1.

Private Sub EnableFrameChildren(frm As Frame, bEnable As Boolean)

Dim c As Control
For Each c In Controls
  If (Not TypeOf c Is CommonDialog) And _
    (Not TypeOf c Is Menu) Then
        If c.Container.Name = frm.Name Then c.Enabled = bEnable
    End If
Next c

End Sub

og for at slå det til og fra bruges feks.

Private Sub Check2_Click() 'Sætter Kanal1 og Kanal2 frame til false hvis Check2 = on
If Check1 = 1 Or Check2 = 1 Then
EnableFrameChildren Frame9, False
Else
EnableFrameChildren Frame9, True
End If
end sub

Dette har virket UPÅKALGELIGT indtil igår hvor jeg satte en timer ind på formen, nu får jeg flg. felj meddelse :

"Run-time error '438' Object doesn't support this property or method ???"

og så merkere den

"If c.Container.Name = frm.Name Then"

hvis jeg fjerner timeren fra formen forsvinder fejlen med det samme, men hva hjælper det når jeg nu skal bruge den.

HJÆÆÆÆÆÆÆÆÆLLLLLLPPPPPP.

Mvh.

Christian H