The CheckBox control in VB supports three positions: Checked, Unchecked, and Grayed. Unfortunately, the default behavior for the control is to cycle between Checked and Unchecked. To set it to Grayed, you must do it programatically. This code shows you how to cycle between the three positions (the order is Checked->Unchecked->Grayed->Checked …):

 Private Sub Check1_Click()Static iState As CheckBoxConstantsStatic bUserClick As Boolean' Trap if the user clicked on the control' or if the event was fired because you' changed the value belowbUserClick = (iState <> Check1.Value)' Prevents you from entering an infinite' loop and getting an Out of Stack Space errorIf bUserClick ThenSelect Case iStateCase vbCheckediState = vbUncheckedCase vbUncheckediState = vbGrayedCase vbGrayediState = vbCheckedEnd Select' This will raise another click event but' your boolean check prevents you from loopingCheck1.Value = iStateEnd IfEnd Sub