How to dynamically call the DAT/EM Button manager system Mouse configuration in MicroStation VBA?

In the summit evolution software, draw only 2d point hight (z value) in the MicroStation v8 but using the summit evolution software the below options are set manually in the software. and then I will pick any point on the map it should move to 3d point hight. So kindly suggest any solution on how to automatically enable the option of the "DAT.EM button manager" setting in the MicroStation software programmatically using VBA.

. .

  1. The pick option is to be enabled when setting the option from the menu bar

                             DAT/EM Button manager=> System Mouse configuration=>  then choose  the Type is as “Plotter”  and Action is as “Align”,