Private Sub SyncMenu(ByVal sObject As String)
  Dim bEnable As Boolean
 
  bEnable = Controls("chk" & sObject).Value
 
  EnableContainer Me, Controls("picFra" & sObject), bEnabled
  Controls("mnu" & sObject).Enabled = bEnabled
 
  If Not bEnable Then
    Controls("chk" & sObject).Enabled = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de