loPadroesBoleto = cbx.PadroesBoleto if vartype(loPadroesBoleto) = 'O' and ; type('cbx.PadroesBoleto.PadroesBoletoImpresso') = 'O' and ; not isnull(cbx.PadroesBoleto.PadroesBoletoImpresso) loPadroesBoleto.PadroesBoletoImpresso.CaminhoImagensCodigoBarras = "\CobreBemX\Imagens\" ELSE = MESSAGEBOX ("not object yet") endif