Histórico da Página

  #include "TOTVS.CH"
  User Function TCheckBox()
  local lCheck1 := .T.
  local lCheck2 := .F.

  DEFINE DIALOG oDlg TITLE "Exemplo TCheckBox" FROM 180,180 TO 550,700 PIXEL
     lCheck := .T.    // Usando New    
     oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||lChecklCheck1},oDlg,100,210,,,,,,,,.T.,,,)
     oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||lChecklCheck2},oDlg,100,210,,,,,,,,.T.,,,)
     oCheck3 := TCheckBox():New(21,01,'CheckBox 003',,oDlg,100,210,,,,,,,,.T.,,,)
     oCheck4 := TCheckBox():New(31,01,'CheckBox 004',,oDlg,100,210,,,,,,,,.T.,,,)
     oCheck5 := TCheckBox():New(41,01,'CheckBox 005',,oDlg,100,210,,,,,,,,.T.,,,)
     // Usando Create
     oCheck6 := TCheckBox():Create( oDlg,{||lCheck},61,01,'CheckBox 006',100,210,,,,,,,,.T.,'CheckBox 006',,)
     oCheck7 := TCheckBox():Create( oDlg,{||lCheck},71,01,'CheckBox 007',100,210,,,,,,,,.T.,'CheckBox 007',,)
   ACTIVATE DIALOG oDlg CENTERED
  Return