lock controls

[chenko]

How can i lock all controls on a certian form... i use this code but it doesnt work

it needs to lock, textboxes, labels, picture boxes, command buttons and check boxes

Sub LockAllControls(fForm As Form, Optional bLock As Boolean = True)
    Dim cCtrl As Control
    For Each cCtrl In fForm.Controls
        cCtrl.Enabled = bLock
    Next cCtrl
End Sub