Check Boxes

Figured it out. Used unbound check box and did the
following code:

Sub chkCal_Click()
Dim chkCal
Set chkCal = Item.GetInspector.ModifiedFormPages("Video
Conference Rooms").chkCal
If chkCal.Value = vbChecked Then
msgbox "False"
Else
msgbox "This means it was checked."
End If
End Sub

Wanda
>-----Original Message-----
>I am missing something here and not sure what. I want a
>bound check box to do something if True and another thing
>if False. If I had coding as below, what am I missing?
>Thanks. Wanda
>*****************
>
>Sub Item_CustomPropertyChange(ByVal Name)
>Dim chkTest
>Set chkTest = Item.GetInspector.ModifiedFormPages
>("P.2").chkTest
>
>Select Case Name
> Case "chkTest"
> Set chkTest = Item.GetInspector.ModifiedFormPages
>("P.2").chkTest
> If chkTest.Value = True Then
> msgbox "Hi there"
> End If
> End Select
>End Sub
>
>.
>