Perguntas Pegar valor de checkbox

Pessoal, Boa Tarde!

Tenho um checkbox na minha tela, de verificar se esse check foi marcado ou não. Fiz assim

User Function AgreFiltra()

Private oCheck1,oCheck2,oCheck3,oCheck4,oCheck5,oCheck6

DEFINE MSDIALOG oDlg FROM 0,0 TO 330,633 PIXEL TITLE 'Faturamento Preço Médio'

TGroup():New(005,005,60,315,'Agregadores',oDlg,CLR_HBLUE,,.T.)

oCheck1 := TCheckBox():New(014,010,'Região Estratégica',,oDlg, 100,210,,,oFont12,,CLR_BLUE,CLR_RED,,.T.,,,)
oCheck2 := TCheckBox():New(014,230,'Vendedor ',,oDlg, 100,210,,,oFont12,,,,,.T.,,,)

oButton1:=tButton():New(134,275,"&getAgreg(oDlg)",oDlg,{||Processa({||FProcREG1(oDlg)},"Aguarde...","Processando...")},40,10,,,,.T.)


ACTIVATE MSDIALOG oDlg CENTERED

Static Function getAgreg()

Local str := ""

oDlg:end()

if(oCheck1:value)
str += "Z16_REGEST" + ","
endif

return str

Como verificar se o checkfoi marcado ou não? Alguém ai já passou por isso?

Obrigado!

Henry, tenta assim:

Os valores vão estar nas variáveis criadas, é só fazer um if com elas.

Abraço!

Kanaãm, Obrigado pela ajuda!

Não estou conseguindo usar, sempre que tenho clico em 2 checkbox ele não segura os que estão marcados.

Peguei até um exemplo pra ver, mas mesmo assim não funfou!

oCheck1 := TCheckBox():New(014,010,'CheckBox 001',{||lCheck1},oDlg,100,210,,,,,,,,.T.,,,)
oCheck2 := TCheckBox():New(014,230,'CheckBox 002',{||lCheck2},oDlg,100,210,,,,,,,,.T.,,,)
oCheck3 := TCheckBox():New(027,010,'CheckBox 003',{||lCheck3},oDlg,100,210,,,,,,,,.T.,,,)
oCheck4 := TCheckBox():New(027,230,'CheckBox 004',{||lCheck4},oDlg,100,210,,,,,,,,.T.,,,)
oCheck5 := TCheckBox():New(042,010,'CheckBox 005',{||lCheck5},oDlg,100,210,,,,,,,,.T.,,,)

O que devo fazer? Obrigado!

Alguém?

tenta trocar o seu bloco de codigo para:
{||lCheck1 := !lCheck1}

kanaâm, bom dia! Obrigado novamente.

Exemplo, tenho 6 checkbox, vou ter que repedir o mesmo código para todos?

ou faço 1 para cada
{||lCheck1 := !lCheck1}
{||lCheck2 := !lCheck2}
{||lCheck3 := !lCheck3}
...

Atc,
Henry