//AB/ OBJECTDEF
Object
    //AB-StoreStart
    Procedure OnChange
        Integer bChecked
        Get Checked_State to bChecked

    End_Procedure  // OnChange
    //AB-StoreEnd
End_Object