Classe TCheckBox

 #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
    oCheck1 := TCheckBox():New(01,01,'CheckBox 001',{||lCheck1},oDlg,100,210,,,,,,,,.T.,,,)
    oCheck2 := TCheckBox():New(11,01,'CheckBox 002',{||lCheck2},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,,61,01,'CheckBox 006',100,210,,,,,,,,.T.,'CheckBox 006',,)
    oCheck7 := TCheckBox():Create( oDlg,,71,01,'CheckBox 007',100,210,,,,,,,,.T.,'CheckBox 007',,)
  ACTIVATE DIALOG oDlg CENTERED
 Return