Gray out checkbox as dialog is displayed. 2

[braddunlap]

I can't figure out how to gray out a checkbox as the dialog is displayed. The only sample I can find is triggered by a checkbox being clicked, then another checkbox is grayed out.
I would like to load the Extra! Dialog box with the item Grayed out. Can anyone supply me with a sample on how to do this for a checkbox using EBM ?

Thanks in advance.

 

[Skie]

This should work.

Function DialogFunc(identifier$, action, suppvalue)
    Select Case action
    Case 1
        DlgValue "Chk_1", -1
    End Select
End Function

Sub Main
    Begin Dialog CheckDialog 250, 200, .DialogFunc
    CheckBox  200, 15, 47, 10, "Grayed Checkbox", .Chk_1
    CheckBox  200, 5, 40, 10, "Not Grayed Checkbox", .Chk_2
    CancelButton  225, 185, 20, 10, .ButCancel
End Dialog
    Dim MyDialog as CheckDialog
    On Error Resume Next
    Dialog MyDialog
End Sub