... TDIAG OF TDIALOG CLASSDATA lRegistered AS LOGICAL DATA lSomb AS LOGICAL INIT .F. DATA hFond,hPen,nDif METHOD Activate( bClicked, bMoved, bPainted, lCentered, bValid, lModal, bInit, bRClicked, bWhen, nClrShadow ) METHOD Initiate( hWndFocus, hWnd ) METHOD Paint() METHOD StartPaint() METHOD PintSombra() ...