Eduarda,
Para desmarcar o CheckBox, basta alterar a variável enviado ao bSetGet do TCheckBox.
Se você deseja validar a seleção do CheckBox, você também vai trabalhar com base nessa variável enviada ao bloco e bSetGet.
Exemplo:
#include "protheus.ch"
//-------------------------------------------------------------------
/*/{Protheus.doc} DesmarcChkBox
Exemplo de desmarcar o checkbox sem clicar no mesmo
@author Daniel Mendes
@since 05/12/2022
@version 1.0
/*/
//-------------------------------------------------------------------
user Function DesmarcChkBox()
local lCheck as logical
local oCheck as object
local oButton as object
local oDlg as object
oDlg := TDialog():New(0, 0, 100, 300, "Exemplo TCheckBox, desmarcando via botão",,,.F.,,,,,,.T.)
lCheck := .T.
oCheck := TCheckBox():New(05, 55, "CheckBox", {||lCheck}, oDlg, 100, 210,,,,,,,,.T.)
oButton := TButton():New( 30, 40, "Desmarca CheckBox", oDlg, {|| lCheck := .F. }, 75, 10,,,.F.,.T.,.F.,,.F.,,,.F. )
oDlg:Activate(,,,.T.)
if lCheck
MsgInfo("O checkbox terminou marcado", "Teste CheckBox")
Else
MsgInfo("O checkbox terminou desmarcado", "Teste CheckBox")
EndIf
return