Key-in

I'm developing a routine that opens a file with opendesignfileforprogram. I cannot set a model of this file as active model reference. How can i send a key-in to this design file thru vba?

I need to send the following "reference merge all" and "reference makedirect A.dgn->B.dgn"...

I have implemented copy all elements but it looses clip boundaries...

Regards