Frames

Hej Eksperter.

Jeg har en form med en del frames på, jeg har flere stedder brug for at disable nogle af disse frames ved tryk på en checkbox, dette er ikke noget problem, men jeg syntes ikke at det er så pænt at kontrollerne inde i den disablede frame stadig ser ud som om de er "aktive", derfor bruger jeg flg. kode:

Private Sub EnableFrameChildren(frm As Frame, bEnable As Boolean)
Dim c As Control
For Each c In Controls
    If c.Container.Name = frm.Name Then c.Enabled = bEnable
Next c
End Sub

og checkboxen :

Private Sub Check1_Click()
If Check1 = 1 Then
EnableFrameChildren Frame1, False
Else
EnableFrameChildren Frame1, True
End If
End Sub

Dette virker helt fint indtil man sætter CommonControl ind på formen, herefter får jeg bare medelsen "Object dosen't support this funktion or method", hvorfor ??, og hvordan løser jeg dette.

:-)

Christian H