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