VB,How to adjust the dimension position in an engineering drawing

VB,How to adjust the dimension position in an engineering drawing,thanks!

SolidworksApi macros