Place smartline over other one automatically

Hi,

i have a short question regarding digitizing lines automatically.

I need to draw some new area boundaries. As you see in the attachment,

i am digitizing  a new red smartline with a specific level among an other sketch line.

I am using Akkusnap mode  and i am trying to catch all vertex points. But it cost me to much time 

to send every time a datapoint to catch all vertex points. Can i automatize it by VBA

or is there a better snap mode which would trace the sketch line automatically.

Regards

Tolga