TCheckBox como validar se o mesmo foi marcado ou não?

A propriedade LMODIFIED traz a informação se foi modificado.

Exemplo de validação.

#include "TOTVS.CH"

User Function TCheckBox()

DEFINE DIALOG oDlg TITLE "Exemplo TCheckBox" FROM 180,180 TO 550,700 PIXEL

oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||u_tstChk(oCheck1)},oDlg,100,210,,,,,,,,.T.,,,)

oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||u_tstChk(oCheck2)},oDlg,100,210,,,,,,,,.T.,,,)

ACTIVATE DIALOG oDlg CENTERED

Return

function u_tstChk(oCheck)

if valType(oCheck) <> "U"

if oCheck:lModified

msgInfo("Desmarcado" + oCheck:cTitle)

else

msgInfo("Marcado" + oCheck:cTitle)

endIf

endIf

return .t.